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)

Schreiben großer Datenmengen

Schreiben großer Datenmengen

Forumregeln