如何读写.txt文件?

Question

高手帮帮忙，最好给详细点的代码

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  BackupName: string;
  FileHandle: Integer;
  StringLen: Integer;
  X: Integer;
  Y: Integer;
begin
  if SaveDialog1.Execute then
  begin
    if FileExists(SaveDialog1.FileName) then
    begin
      BackupName := ExtractFileName(SaveDialog1.FileName);
      BackupName := ChangeFileExt(BackupName, '.BAK');
      if not RenameFile(SaveDialog1.FileName, BackupName) then        raise Exception.Create('Unable to create backup file.');
    end;
    FileHandle := FileCreate(SaveDialog1.FileName);
    { Write out the number of rows and columns in the grid. }
    FileWrite(FileHandle, 
      StringGrid1.ColCount, SizeOf(StringGrid1.ColCount));
    FileWrite(FileHandle, 
      StringGrid1.RowCount, SizeOf(StringGrid1.RowCount));
    for X := 0 to StringGrid1.ColCount ?1 do
    begin      for Y := 0 to StringGrid1.RowCount ?1 do
      begin
        { Write out the length of each string, followed by the string itself. }
        StringLen := Length(StringGrid1.Cells[X,Y]);
        FileWrite(FileHandle, StringLen, SizeOf(StringLen));
        FileWrite(FileHandle,
          StringGrid1.Cells[X,Y], Length(StringGrid1.Cells[X,Y]);
      end;
    end;
    FileClose(FileHandle);
  end;end;

Answer 2

Var
  FList: TStringList;
  tmpStr: String;
Begin
  FList:= TStringList.Create;
  FList.LoadFromFile('filename');
showmessage(flist[1])

Answer 3

assignfile(文件名，路径)；//讲文件与文件名关联
reset（文件名）//打开文件
read  读
readln 读一行
write 写
writeln 写一行

Answer 4

那位朋友可给我发个实例email:[email protected].分就全给他

Answer 5

function TForm1.GetNameDir(FileName: TFileName): String;
var
  i : Integer;
begin
  for i := length(FileName) downto 1 do
  begin
    if FileName[i] = '\' then
    begin
      Break
    end;
  end;
  if i <= 1 then
  begin
    Result := GetNameDir(Application.ExeName);
  end
  else
  begin
    Result := copy(FileName,1,i);
  end;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
var
  FileName : TextFile;
  Str,Tmp : String;
  TStrList : TStringList;
  i,k : Integer;
begin
  TStrList := TStringList.Create;
  TStrList.Clear;
  if not (FileExists(GetNameDir(Application.ExeName)+'xuanhao.txt')) then
  begin
    Application.MessageBox('xuanhao.txt文件不存在，请先转出TXT文件','提示',MB_OK+MB_ICONSTOP);
    Exit;
  end;
  AssignFile(FileName,GetNameDir(Application.ExeName) + 'xuanhao.txt');
  Reset(FileName);
  Readln(FileName,Str);
  CloseFile(FileName);