delphi怎么将一个流转换成字符串?或者将字符串转出一个流

2024年4月30日发(作者：)

for I := 1 to Length(mString) do (mString[I], 1);

except

Result := False;

end;

end; { StringToStream }

///////End Source

///////Begin Demo

procedure 1Click(Sender: TObject);

var

vMemoryStream: TMemoryStream;

begin

:= FileToString('C:');

vMemoryStream := ;

try

Stream(vMemoryStream);

:= StreamToString(vMemoryStream);

finally

;

end;

end;

procedure 2Click(Sender: TObject);

var

vMemoryStream: TMemoryStream;

begin

StringToFile(, 'C:');

vMemoryStream := ;

try

StringToStream(, vMemoryStream);

on := 0;

omStream(vMemoryStream);

finally

;

end;

end;

///////End Demo