弄个strFild : string;记录字段和字段值
for i := 0 to ADOQuery1.FieldList.Count-1 do
begin
if strFild = '' then
strFild := 字段和字段值
else
strFild := strFild +','+字段和字段值;
end;
赋值的时候 弄个Tstringlist
onst
constr :String = '0=aaa,1=bbb,2=ccc,3=ddd';
var
strs :TStrings;
i :Integer;
begin
strs := TStringList.Create;
strs.CommaText := constr;
for i := 0 to strs.Count-1 do
begin
ShowMessage(strs.Names[i]);
ShowMessage(strs.Values[strs.Names[i]]);
ShowMessage(strs.ValueFromIndex[i]);
end;
end;
通过这个例子不难看出:
这个时候strs中的内容是:
0=aaa
1=bbb
2=ccc
3=ddd
而Names中则是:
0
1
2
3
在Values中则是:
aaa
bbb
ccc
ddd