Warum geht das nicht?

[Jens Schumann]

Hallo flattman,
bevor man Objekte verwenden kann muss man sie erzeugen.
Dein Source muss entsprechend erweitert werden.

Delphi-Quellcode:

var memstream:TMemoryStream; 
    Filestream:TFileStream; 
    P:PByte; 
    X:integer; 
begin 
  // Objekte erzeugen !!!
  MemStream:=TMemoryStream.Create;
  FileStream:=TFileStream.Create(Dateiname,Optionen); // Die Optionen kannst Du in der Hilfe finden.
try 
  MemStream.Size := 1024000; 
  P:= MemStream.Memory;   //hier bleibt der compiler stehen 
  For X := 0 TO MemStream.Size - 1 Do 
  Begin 
    P^ := Random(256); 
    inc(P); 
  end; 
  FileStream.CopyFrom(MemStream, 0);
finally
  // Objekte freigeben nicht vergessen !!!
  MemStrem.Free; 
  FileStream.Free
  end;
end;