怎样才能向内存流中添加字符串！

procedure TForm1.Button1Click(Sender: TObject); var sFileName,str: String; WriteStream: TFileStream; strstream:TStringStream; begin str:= Trim('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234'); sFileName := 'C:\text.txt'; strstream:=TStringStream.Create(str) ; if FileExists(sFileName) then begin FileSetAttr(sFileName, 0); WriteStream := TFileStream.Create(sFileName, fmOpenWrite); end else WriteStream := TFileStream.Create(sFileName, fmCreate); try strstream.Position :=0; WriteStream.CopyFrom(strstream,0); finally strstream.Free ; WriteStream.Free; end; FileSetAttr(sFileName, faReadOnly faArchive); end; 这样就可以了！