delphi中如何生成一个文件？如.txt类型？并向其中写入数据？

Question

var   F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);
  end;
end;

Answer 1

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

procedure TForm1.Button1Click(Sender: TObject);
var 
  F: TextFile;
begin
  AssignFile(F, 'C:\a.txt');
  Rewrite(F);
  Writeln(F, 'Just created file with this text in it...');
  CloseFile(F);
end;
end.

Answer 3

使用TStringList操纵文本文件（原创）只是一个简单的例子，使用TStringList操纵文本我认为是最简单的：）
var
s:TStringList;
path:String;
begin
path:=ExtractFilePath(Application.ExeName );
s:=TStringList.Create ;
s.LoadFromFile(path + '\a.txt');
s.Strings[0]:='000';
s.Strings[s.Count-1]:='555';
s.SaveToFile(path + '\a.txt');
s.Free ;
end;

Answer 4

var
s:TStringList;
begin
s:=TStringList.Create ;
s.LoadFromFile('c:\a.txt');
s.Strings[0]:='000';
s.Strings[1]:='111';
s.SaveToFile('c:\a.txt');
s.Free ;
end;

Answer 5

用memo最简单memo1.lines.loadfromfile()
memo1.lines.savetofile()

Answer 6

TStrings  SaveToFile, LoadFromFile

Answer 7

除非你要让用户看见文件内容,用个Memo可以考虑,否则用其它的方法!