for i:=0 to TStringList.Count-1 do begin ...... end; 是不是这个意思?
用动态数组吧,下面的是赋值后就可以调用了,功能应该能满足你的要求!呵呵 SetLength(MyArray,RecordCount); ADOQueryName.First; for i := 0 to RecordCount - 1 do begin MyArray[i] := ADOQueryName.FieldByName('FieldName').AsString; ADOQueryName.Next; end;
a := TStringList.Create; ADOQuery.Sql.Text := sql语句; ADOQuery.Open; for i := 0 to ADOQuery.RecordCount - 1 do begin a.Add(ADOQuery.FieldByName('字段名').asString); ADOQuery.next; end; ADOQuery.Close;a即是那个保存查询结果字段的TStringList
begin
......
end;
是不是这个意思?
SetLength(MyArray,RecordCount);
ADOQueryName.First;
for i := 0 to RecordCount - 1 do
begin
MyArray[i] := ADOQueryName.FieldByName('FieldName').AsString;
ADOQueryName.Next;
end;
ADOQuery.Sql.Text := sql语句;
ADOQuery.Open;
for i := 0 to ADOQuery.RecordCount - 1 do
begin
a.Add(ADOQuery.FieldByName('字段名').asString);
ADOQuery.next;
end;
ADOQuery.Close;a即是那个保存查询结果字段的TStringList