Hallo,
ich habe ein Problem festgestellt, welches mit dem Reservieren, bzw. Nutzen von Speicherplatz bei Records mit extrem großen fixed-size Arrays auftritt.
Delphi-Quellcode:
TBigRecord =
record
Value:
array[0..104857600]
of Byte;
// 100 MB
end;
...
procedure TForm1.btRecordClick(Sender: TObject);
var
Rec: TBigRecord;
I: Integer;
begin
for I := Low(Rec.Value)
to High(Rec.Value)
do
Rec.Value[I] := $64;
// only if assignment is done, the access violation occurs
end;
Jetzt bin ich mir nicht sicher, ob es an dem zu kleinen Speicherplatz liegt oder daran, dass ich Speicherplatz für Records doch explizit reservieren muss.
Denn folgender Code läuft ohne
access violations
Delphi-Quellcode:
procedure TForm1.btRecordClick(Sender: TObject);
var
Rec: ^TBigRecord;
I: Integer;
begin
GetMem(Rec, SizeOf(TBigRecord));
try
for I := Low(Rec.Value) to High(Rec.Value) do
Rec.Value[I] := $64;
finally
FreeMem(Rec);
end;
end;
Hat jemand eine Idee, was beim obigen Code falsch läuft?
Grüße
Piccolo