如何用delphi操作记录型文本文件(转载）

 procedure TForm1.Example;
var
  Fp : File of TMyRec;
  My : TMyRec;
begin
  My.Name := 'dBASE3';
  My.Addr := 'ChineseTaiPei';
  My.Numb := 10098;

  AssignFile(Fp,'E:/1.txt');
  ReWrite(Fp);
  try
    Write(Fp,My);
  finally
    CloseFile(Fp);
  end;
end;

procedure TForm1.ReadTxt;
var
  Fp : File of TMyRec;
  My : TMyRec;
begin
  AssignFile(Fp,'E:/1.txt');
  ReSet(Fp);
  try
    Read(Fp,My);
  finally
    CloseFile(Fp);
  end;

  showmessage(My.Name);
  showmessage(My.Addr);
  showmessage(IntToStr(My.Numb));
end;