如何控制数据表中的数据？写入文件。

Question

rt

Answer 1

我想先把数据显示在edit里，检查数据无误后，写入一个文件，并且，写一个数据域就换一行。

Answer 2

回车：#13
把数据显示在edit里:
edit.text:=queryfiledByname(fieldname).asstring;
写入一个文件，并且，写一个数据域就换一行:
procedure button1click(sender:TObject)
var F:TextFile;
  StrFileName:String;
  FileHandle:Integer;
begin
    strFileName := DateToStr(Date);
    strFileName := 'c:\'+ strFileName + '.txt';
    if not FileExists(strFileName) then
    Begin
      FileHandle := FileCreate(strFileName);
      FileClose(FileHandle);
      AssignFile(F,strFileName);
    End;
      writeln(F,edit1.text);
      Flush(f);
    fileclose(f);
end;