Die Warnung kommt wahrscheinlich zu Recht:
Delphi-Quellcode:
F:=TFileStream.Create(FileName,fmOpenRead);
try
SetLength(Dumplist,F.Size); // Problem hier
F.ReadBuffer(Dumplist[1],F.Size); // Oder hier
finally
F.Free;
end;
Dumplist:= FastReplace(FastReplace(Dumplist,'[[', '', False),']]', '', False);
F:=TFileStream.Create(FileName,fmCreate);
try
F.Write(Dumplist[1],Length(Dumplist));
finally
F.Free;
end;
showmessage('done');
// Dumplist:= FastReplace(Dumplist,'[[', '', False);
Denn an den markierten Stelle erstellst du einen String der Länge F.Size, was in unserem Fall hier 500*1024*1024 = 524288000 Bytes sein sollte.