Delphi中将字符串保存到文本文件中？

使用TStringList。

uses

  Classes, Dialogs; // Classes for TStrings, Dialogs for ShowMessage

var

  Lines: TStrings;

  Line: string;

  FileName: string;

begin

  FileName := 'test.txt';

  Lines := TStringList.Create;

  try

    Lines.Add('First line');

    Lines.Add('Second line');

    Lines.SaveToFile(FileName);

    Lines.LoadFromFile(FileName);

    for Line in Lines do

      ShowMessage(Line);

  finally

    Lines.Free;

  end;

end;

也SaveToFile和LoadFromFile可以采取附加的编码在2009年和较新的Delphi设置文本编码（ANSI，UTF-8，UTF-16，UTF-16大端）。

使用：TextFile

var

  Txt: TextFile;

  SomeFloatNumber: Double;

  SomeStringVariable: string;

  Buffer: Array[1..4096] of byte;

begin

  SomeStringVariable := 'Text';

  AssignFile(Txt, 'Some.txt');

  Rewrite(Txt);

  SetTextBuf(Txt, Buffer, SizeOf(Buffer));

  try

    WriteLn(Txt, 'Hello, World.');

    WriteLn(Txt, SomeStringVariable);

    SomeFloatNumber := 3.1415;

    WriteLn(Txt, SomeFloatNumber:0:2); // Will save 3.14

  finally CloseFile(Txt);

  end;

end;

方法3：

Delphi 2010中引入的IOUtils单元提供了一些非常方便的功能，用于写入/读取文本文件：

//add the text 'Some text' to the file 'C:\users\documents\test.txt':

TFile.AppendAllText('C:\users\documents\text.txt', 'Some text', TEncoding.ASCII);