Ich steh grade ziehlich auf den Schlauch. Ich will einen Stream in einen String umwandeln. Doch folgende funktion gibt ein eigenartiges ergebnis aus. Was mache ich da falsch und welche ausgabe hat der Code bei euch ?
Delphi-Quellcode:
function streamtostr(S: TStream): string;
var
str: string;
begin
setlength(str, S.size);
S.Read(str[1],length(str));
result:= str;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ms: tmemorystream;
s: string;
begin
ms:= tmemorystream.Create;
s := 'gsfdgfdghgfd';
ms.Write(s, length(s));
showmessage(streamtostr(ms));
end;
Was steht in der ShowMessage ???