Zitat von
Jiron:
Es ist schon erstaunlich wieviele Möglichkeiten es für ein Problem gibt.
ich sag nur
http://www.delphipraxis.net/internal...t.php?t=145265
Also wenn du eh alles während der Laufzeit im Arbeitsspeicher in dem Array hast, dann brauchst du es ja nur am Anfang einmal zu laden und am Ende komplett zu speichern
Delphi-Quellcode:
var X: TIntegerDynArray{Array of Integer};
MyFile: File;
// speichern
AssignFile(MyFile, ...);
{$I-}
ReWrite(MyFile);
{$I+}
if IOResult=0 then
begin;
if X <> nil then BlockWrite(MyFile, @X[0], Length(X) * SizeOf(Integer));
CloseFile(MyFile);
end;
// speichern
AssignFile(MyFile, ...);
{$I-}
Reset(MyFile);
{$I+}
if IOResult=0 then
begin;
SetLength(X, FileSize(MyFile) div SizeOf(Integer));
if X <> nil then BlockRead(MyFile, @X[0], Length(X) * SizeOf(Integer));
CloseFile(MyFile);
end;
Delphi-Quellcode:
var X: TIntegerDynArray{Array of Integer};
FS: TFileStream;
// speichern
FS := TFileStream.Create()
{$I-}
ReWrite(MyFile);
{$I+}
if IOResult=0 then
begin;
if X <> nil then BlockWrite(MyFile, @X[0], Length(X) * SizeOf(Integer));
CloseFile(MyFile);
end;
// speichern
AssignFile(MyFile, ...);
{$I-}
Reset(MyFile);
{$I+}
if IOResult=0 then
begin;
SetLength(X, FileSize(MyFile) div SizeOf(Integer));
if X <> nil then BlockRead(MyFile, @X[0], Length(X) * SizeOf(Integer));
CloseFile(MyFile);
end;
Und das Ganze nochmals per FileStream (wurde oben auch schonmal genannt)
Delphi-Quellcode:
//speichern
FS := TFileStream.Create(...);
if X <> nil then FS.WriteBuffer(@X[0], Length(X) * SizeOf(Integer));
FS.Free;
// lesen
FS := TFileStream.Create(...);
SetLength(X, FS.Size div SizeOf(Integer));
if X <> nil then FS.Readbuffer(@X[0], Length(X) * SizeOf(Integer));
FS.Free;
PS: das
if X <> nil then entspricht
if Length(X) > 0 then, also es ist dir überlassen, was du nutzt und wenn das Array beim Laden und Speichern nie leer ist, dann kannst du diese Abfrage auch weglassen.
Aber es gibt halt Probleme (einen nette
Exception) bei einem leeren Array, wenn man dort per @X[0] auf ein nicht existierenses Element zugreifen möchte.