怎么把字符串写入TXT文件里 ( 积分: 23 )

怎么把字符串传入TXT文件里
例如:
s1:string

怎么把字符串写入TXT文件里

h

方法应该很多，我想要看你具体用在什么场合。
用TStrings
Var
List : TStrings;
=======
List := TStringList.Create;
Try
List.Text := String;
List.SaveToFile(TextFileName);
Finally
List.Free;
End;
用流
FS : TFileStream;
P : PChar
FS := TFileStream.Create(TextFileName);
Try
P := PChar(S1);
FS.Write(Pointer(P)^,Length(S1);
Finally
FS.Free;
end;
用Text,我好久没用，忘记了。

我来补充：用text
var
yourtextFile: textFile;
yourstring: string;
begin
assignFile(yourtextFile,'yourFileName.txt');
rewrite(yourtextFile);
try
writeln(yourtextFile,yourstring);
finally
closeFile(yourtextFile);
end;
end;

还有就是
memo1.lines.add(yourstring);
memo1.lines.savetofile(yourFile);
其实质和楼上的tstringlist封装是一样的
呵呵

procedure TForm1.Button1Click(Sender: TObject);
var
FS : TFileStream;
P : PChar;
begin
//用流做的例子
FS := TFileStream.Create('C:/temp.txt',fmCreate);//这里要传入两个参数
Try
P := PChar('中华人民共和国');
FS.Write(Pointer(P)^,Length('中华人民共和国'));
Finally
FS.Free;
end;
end;