如何将String变量存储到文件中 ？

Question

因为filestream是按照binary的格式来进行操作的?如果要在保存后用其他的编辑岂能看到正常的文字，可以自己定一个文本文件的类型，然后进行操作即可：
procedure TForm1.Button1Click(Sender: TObject);
var
 fn:textfile;
begin
assignfile(fn,'c:\test.txt');
rewrite(fn);
write(fn,'This is a TEST file for Delphi 5');
closefile(fn);
end;procedure TForm1.Button2Click(Sender: TObject);
var
fn:textfile;
s:string;
begin
 assignfile(fn,'c:\test.txt');
 reset(fn);
 readln(fn,s);
 caption:=s;
 closefile(fn);
end;

Answer 1

var 
    strTemp : String;
    DataFile : TFileStream;
Begin
    DataFile := TfileStream.Create('c:\FileName.txt', fmCreate );
    strTemp := 'Something';
    DataFile.Write(strTemp[1],Length(strTemp));
    DataFile.Free;
end;当然，如果用TStrings/TStringList类，写起来更简单：
var
  ss: TStrings;
Begin
  ss := TStringList.Create;
  ss.Text := 'something!!';
  ss.SaveToFile('C:\FileName.txt');
  ss.Free;
end;

Answer 2

Thank you very much !