将查询结果写入到txt文件中，如何按一定的格式保存？

Question

写入文本文件后，按一定的格式保存。
edit1.text:='  '两个空格
edit2.text:='  '两个空格
设置完成后，如何保存edit1和edit2中的内容，下次再使用的时候便不用在更改
edit1和edit2的值。

Answer 1

用记录文件吧
type
  TEditRec=packed record
  Str1:string[n];//n为字符串长度，自己设定就可以了
  str2:string[m];//m为字符串长度，同上
  end;procedure button1click(sender :tobject)
var
  RecFile:file of TEditRec;
  EditRec:TEditRec;
begin
  EditRec.str1:=edit1.text;
  EditRec.str2:=edit2.text;
  assignfile(RecFile,'Test.txt');
  reset(RecFile);
  Seek(RecFile,FileSize(RecFile));
  write(RecFile,EditRec);
  CloseFile(RecFile);
end;
读出来的时候同样，稍微改一下，一上我没经过调试，你调一下，思路是正确的！

Answer 2

with adoquery1 do
    begin
      close;
      sql.clear;
      sql.add('select * from table where a=''99999''');
      open;
      if not adoquery1.Eof then
      begin
        AssignFile(lfile,'c:\wwyysha\99999.txt');
        Rewrite(lfile);
        try
          while not adoquery1.Eof do
          begin
            lvalue:=adoquery1.Fields[0].asstring;
            for loop := 0 to adoquery1.FieldCount-1 do
              lvalue := lvalue+ adoquery1.fields[loop].asstring+' , ';
            writeln(lfile,lvalue);
            adoquery1.Next;
          end;
        finally
        end;
        closefile(lfile);
      end;
    end;

Answer 3

用pardos.db建一个表或许也能可行，毕竟纪录文件纪录类型只能完成特定的查询结果阿！