funktioniert leider immer noch nicht. Der Code sieht jetzt wie folgt aus:
Code:
var memstream:TMemoryStream;
P:PByte;
X:integer;
begin
MemStream:=TMemoryStream.Create;
try
MemStream.Size := 1024000;
P:= MemStream.Memory;
For X := 0 TO MemStream.Size - 1 Do
Begin
P^ := Random(256);
inc(P);
end;
memo1.lines.LoadFromStream(memstream);
finally
memstream.Free;
end;