本文整理自网络，侵删。
if ADOQuery1.Recordset.RecordCount>0 then begin
for i:=0 to ADOQuery1.Recordset.RecordCount-1 do
begin
string:=ADOQuery1.FieldByName('name').AsString;
adoquery1.Next;
end;
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if ADOQuery1.Recordset.RecordCount>0 then
begin
for i:=0 to ADOQuery1.Recordset.RecordCount-1 do
begin
str1:=ADOQuery1.FieldByName('dizhic').AsString;
adotable4.Append ;
adotable4.FieldValues['wenzhang']:=str1;
adotable4.Post;
adoquery1.Next;
end;
end;
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
adotable1.Append;
adotable1.FieldValues['gjz']:=memo1.Lines.Strings[i];
adotable1.Post;
adotable1.Next;
end;
adotable1.Active:=false;
adotable1.Active:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
s:string;
begin
adoquery1.Active:=false;
adoquery1.Active:=true;
for i:=0 to adoquery1.Recordset.RecordCount-1 do
begin
s:=ADOQuery1.FieldByName('gjz').asstring;
memo2.Lines.Add(s);
adoquery1.Next;
end;
end;
adoquery1的 sql语句：select * from gjz
相关阅读 >>
Delphi createthread的线程传参数（小熊论坛的）
Delphi firedac tfddatamove 导出csv
Delphi 使用firedac tfdibbackup和tfdibrestore备份和还原firebird
更多相关阅读请进入《Delphi》频道 >>
