Question

Delphi TStringStream 怎样转换String ？

procedure TForm1.Button1Click(Sender: TObject);
var
ss:TStringStream;
str:String;
begin
ss:=TStringStream.Create('');
for i:=0 to 99 do
begin
ssThickness.WriteString(Floattostr(i+1)+',');
end;

str:= ？？？SS ; //？？？此处怎样转换到字符串?

end;

Answer 1

//关于PChar和String之间的转换，看看这段代码。
var
str1:String;
str2:PChar;
Begin
SetLength(str1,255); //String类型设置固定长度
//下面是相互赋值
str1:=str2;
str2:=@str1[1];
end;

Answer 2

str:=ss.DataString; 这样就是将TstringStream转换成String

Answer 3

str := ss[0] ;

Answer 4

不太明白你说的是什么意思

追问

就是SS执行for循环后就会有数据在里面了，然后我想取出来赋到字符串变量str，就是这样！

追答

tstringstream 有个属性 datastring 帮助里有解释：
Use DataString to get access to the text of the stream. The text represents the information that is being transferred by means of the string stream. Size is the number of bytes in the string, and Position is the current position within DataString.

Note: DataString is a read-only property. DataString can be used to change the contents of the string, but applications can't change the DataString itself.