如何将一个表中的数据与一个文本文件倒入倒出？

Question

procedure TFrmIME.BitBtn1Click(Sender: TObject); //导入到TXT
var
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then
  begin
    try
      AssignFile(F, OpenDialog1.FileName);
      Rewrite(F);
      Query1.open;
      while not Query1.Eof do
      begin
        S := Query1.fieldbyname('编号').asstring + '|' + Query1.fieldbyname('姓名').asstring + '|' + Query1.fieldbyname('出生年月').asstring + '|' + Query1.fieldbyname('奖金').asstring;        Writeln(F, S);
        Query1.Next;
      end;
    finally
      CloseFile(F);
    end;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);//导入到数据库
var
  F: TextFile;
  S, Str: string;
begin
  if OpenDialog1.Execute then
  begin
    try
      AssignFile(F, OpenDialog1.FileName);
      ReSet(F);
      Query1.open;      while not Eof(F) do
      begin
        Query1.Insert;
        Readln(F, S);
        Str := copy(S, 1, pos('|', S) - 1);
        Query1.fieldbyname('编号').asstring := Str;
        Delete(S, 1, Pos('|', S));
        Str := Copy(S, 1, Pos('|', S) - 1);
        Query1.fieldbyname('姓名').asstring := Str;
        Delete(S, 1, pos('|', S));
        Str := Copy(S, 1, Pos('|', S) - 1);
        Query1.fieldbyname('出生年月').asstring := Str;
        Delete(S, 1, Pos('|', S));
        Query1.fieldbyname('奖金').asstring := Str;
        Query1.Post;
      end;
    finally
      CloseFile(F);
    end;
  end;
end;
//这是基本思路,略加修改即可!

Answer 1

procedure TFrmIME.BitBtn1Click(Sender: TObject); //导入到TXT
var
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then
  begin
    try
      AssignFile(F, OpenDialog1.FileName);
      Rewrite(F);
      Query1.open;
      while not Query1.Eof do
      begin
        S := Query1.fieldbyname('编号').asstring + '|' + Query1.fieldbyname('姓名').asstring + '|' + Query1.fieldbyname('出生年月').asstring + '|' + Query1.fieldbyname('奖金').asstring;        Writeln(F, S);
        Query1.Next;
      end;
    finally
      CloseFile(F);
    end;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  F: TextFile;
  S, Str: string;
begin
  if OpenDialog1.Execute then
  begin
    try
      AssignFile(F, OpenDialog1.FileName);
      ReSet(F);
      Query1.open;      while not Eof(F) do
      begin
        Query1.Insert;
        Readln(F, S);
        Str := copy(S, 1, pos('|', S) - 1);
        Query1.fieldbyname('编号').asstring := Str;
        Delete(S, 1, Pos('|', S));
        Str := Copy(S, 1, Pos('|', S) - 1);
        Query1.fieldbyname('姓名').asstring := Str;
        Delete(S, 1, pos('|', S));
        Str := Copy(S, 1, Pos('|', S) - 1);
        Query1.fieldbyname('出生年月').asstring := Str;
        Delete(S, 1, Pos('|', S));
        Query1.fieldbyname('奖金').asstring := S;//上面此处有错!
        Query1.Post;
      end;
    finally
      CloseFile(F);
    end;
  end;
end;
//这是基本思路,略加修改即可!