delphi 怎么计算字符个数？
sql='select id,username,userpass from mytable';
想想用程序动态地数出里面字段名来，该如何实现？
（这个例子中应该出来3）
[解决办法]
var
StrLst: TStrings;
begin
S := 'select id,username,userpass from mytable';
StrLst := TStringList.Create;
StrLst.Delimiter := ',';
StrLst.DelimitedText := Copy(S, 8, Length(S) - 20);
ShowMessage(StrLst[0] + ' ' + StrLst[1] + ' ' +StrLst[2]);//id username userpass
ShowMessage(IntToStr(StrLst.Count)); //3
end;
[解决办法]
adoquery1.close;
adoquery1.sql.text:= 'select id,username,userpass from mytable where 1<>1'; // 1<>1
adoquery1.open;
for i:=0 to adoquery1.fieldcount -1 do
memo1.lines.add(adoquery1.fields[i].fieldname);
adoquery1.close;
[解决办法]
