Anfänger - wie Zahlen zum rechnen in Datei speichern ?

[himitsu]

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.