如何将S:String中的内容另存为文本文档？急！！！

Question

procedure SaveTofile(content, fileName: string);
var
  AFiles: TStrings;
begin
  AFiles := TStringList.Create;
  try
    AFiles.Add(Content);
    AFiles.SaveToFile(AFileName);
  finally
    AFiles.Free;
  end;
end;

Answer 1

procedure SaveTofile(content, fileName: string);
var
  AFiles: TStrings;
begin
  AFiles := TStringList.Create;
  try
    AFiles.Add(Content);
    AFiles.SaveToFile(AFileName);
  finally
    AFiles.Free;
  end;
end;

Answer 2

var f:text;assignfile(f,'c:\1.txt');
rewrite(f);
write(f,SH);
closefile(f);

Answer 3

chechy(chechy) 说的是最简单的方法
使用TStringlist

Answer 4

我自己写了一个，各位看看效率行吗，代码如下：
var
  Frame:TextFile;
  i : word;
  SH : String;  {要存的内容}
begin
  SH := '';
  for i:=1 to length(S) do
    SH := SH + IntToHex(ord(s[i]),2) + ' ';
  AssignFile(Frame,'Frame.txt'); {将文件变量与文件关联起来}
  try
    append(Frame); {向已存在文件追加新文本}
  except
    rewrite(Frame); {创建新文件}
  end;
  try
  Writeln(Frame,SH); {向文本文件中添加一行内容}
  finally
    CloseFile(Frame);
  DispStr(SH);
  end;
end;

Answer 5

stringlist.saveFromStream(tmpstream);//tmpstream:Tfilestream
stringlist和Tfilestream结合用，有帮助的。