Delphi Warum geht das nicht?

Thema durchsuchen

Ansicht

Themen-Optionen

Warum geht das nicht?

Ein Thema von flattman · begonnen am 7. Jun 2003 · letzter Beitrag vom 8. Jun 2003

Vorheriger Beitrag

Nächster Beitrag

flattman

Registriert seit: 2. Nov 2002
Ort: Oldenburg (Oldenburg)
39 Beiträge

Delphi 2009 Professional

7. Jun 2003, 12:41

funktioniert leider immer noch nicht. Der Code sieht jetzt wie folgt aus:

markieren

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;