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)