Schreiben großer Datenmengen

[Luke1410]

Folgenden Code versuche ich verzweifelt zum Laufen zu bringen:

Code:

var
   Stream : TFileStream;
   buf    : array of byte;
   i      : integer;
begin
   setLength(buf, 1024*1024);
   for i := 0 to 1024*1024-1 do
      buf[i] := ord('A');

   Stream := TFileStream.Create('test', fmCreate);
   Stream.WriteBuffer(buf, 1024*1024); //<- Exception: EWriteError - E.Message: Stream-Write-Fehler
   Stream.Free()
end;

An markierter Stelle tritt jedesmal eine Exception auf. Kann mir jemand erklären warum die Exception auftritt? (getestet mit Delphi 4/5)

[Dax]

Schreib lieber buf[0] statt buf.

Weil: buf ist nur ein Zeiger auf einen Zeiger auf die Daten. buf[0] ist das erste Element dieser Daten und nachfolgend stehen alle anderen Elemente.

[Luke1410]

Thx, so klappt es dann endlich.
Danke auch für die Erklärung.