直接调就可以了。
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with adoquery1 do
begin
ConnectionString:=getVFConnStr('d:/tree');
SQL.Add('select * from gypcbz');
open;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery1.SaveToFile('d:/aaa.txt');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.LoadFromFile('d:/aaa.txt');
end;