如何将将一个字符串写入一个文件流中？？？

Question

TStringStream.Create(String);
TFileStream.CopyFrom(TStringStream)

Answer 1

   stream1.write(pchar(s),Legnth(s));   ?!

Answer 2

var
  m: Tmemorystream;
  s:string;
begin
  m := Tmemorystream.Create ;
  m.Clear ;
  m.WriteBuffer (pchar(s),sizeof(pchar(s));
end;

Answer 3

var
  m:tmemorystrem;
  s:string;
begin
 m:=Tmemorystream.Create ;
 m.clear;
 m:writerbuffer (pchar(s),sizeof(pchar(s));
end;

Answer 4

starts()　
有两个错误sizeof（pchar）=4；
m.WriteBuffer (pchar(s)m.write(pchar(s)^,length(s));
m.writebuffer(pchar(s)^,length(s));m.savetofile('c:\1.txt');//c喳喳你是否做对了

Answer 5

我试过了，chechy(chechy)　大哥的方法是正确的！

Answer 6

：　chechy(chechy)　是个高手！！！！！：　chechy(chechy)　是个高手！！！！！：　chechy(chechy)　是个高手！！！！！

Answer 7

老鬼:
   这样写。
 var s string;
m:tmemorystream;
begin
 m:=tmemorystream.create;
 m.writebuffer(s,length(s));       

Answer 8

Prodecure WriteStringToFile(Str:String;FileName:String);
var FStream:TFileStream;
var StrStream:TStringStream;
begin
   FStream := nil;
   StrStream := nil;
   try
      FStream := TFileStream.create(filename,fmcreate); //fmcreate对不对有点忘了
      StrStream := TStringStream.create(Str);
      FStream.copyfrom(StrStream);
   finally
      Freeandnil(FStream);
      Freeandnil(StrStream);
   end;
end;

Answer 9

to ghostcool(幽酷)　
m.writebuffer(s,length(s));
肯定不行；m中存放的式乱麻m.writebuffer(pChar(s)^,length(s));
                     ~~注意    

Answer 10

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if ms=nil then
    ms:=TMemoryStream.Create;
end;procedure TForm1.SpeedButton2Click(Sender: TObject);
var
  s:string;
begin
  s:=edit1.text;
  caption:=inttostr(length(s))+' '+inttostr(sizeof(pchar(s)))+' '+inttostr(sizeof(s));
  //ms.Write(s,sizeof(s));
  //ms.Write(s,length(s));
   ms.WriteBuffer(pchar(s)^,length(s));
  //ms.Write(pchar(s)^,length(s));
end;procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  ms.SaveToFile('e:\1.txt');
end;procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
  ms.SetSize(0);
end;