SaveToFile(beliebige Variable);

[Flo.Hoe]

Hi,
Wie kann man mit Delphi eine Variable X:TX in einem beliebigen Verzeichnis speichern?
Bis jetzt habe ich x immer aufgespalten und die einzelnen Zahlenwerte (x.a , x.b ...) in einer Textdatei gespeichert.
Auf Dauer ist dieses Verfahren aber zu umständlich.

[SirThornberry]

eigentlich recht einfach (gibt da aber sicher noch mehr varianten):

Delphi-Quellcode:

var
  lStream: TStream;
begin
  lStream := TFileStream.Create(YourFileName, YourFileMode);
  try
    lStream.write(YourVar, SizeOf(YourVar));
  finally
    lStream.Free;
  end;

[DeddyH]

Zitat von SirThornberry:

(gibt da aber sicher noch mehr varianten)

"file of" fällt mir da spontan ein.

[fwsp]

http://dsdt.info/tutorials/typdateien/

[Flo.Hoe]

Was ist denn FileMode in deiner Procedure?

Zitat:

  lStream := TFileStream.Create(YourFileName, YourFileMode);

[DeddyH]

Wird wohl fmCreate, fmOpenReadWrite oder fmOpenWrite sein.

[Flo.Hoe]

OK,
Die Datei wurde erfolgreich gespeichert.
Aber wie kann ich jetzt darauf zugreifen und sie wieder laden?

[DeddyH]

Schau Dir mal TFileStream in der OH an (Create, Seek, Position, Read etc.)

[Flo.Hoe]

Damit klappt es irgendwie nicht.
Außerdem ist die gespeicherte Datei sehr klein - 4Byte: Das kann nicht sein ,denn da sind viele ganze Zahlen und eine Bitmap drin.

Delphi-Quellcode:

  var
  lStream: TStream;
begin
  lStream := TFileStream.Create('C:\Programme\...\Save', fmOpenWrite);
  try
    lStream.Read(MyFileName, SizeOf(MyFileName));
  finally
    lStream.Free;
  end;
end;

[OldGrumpy]

Klar, gespeichert wurde nur der Pointer auf das Objekt, der hat vier Bytes. Um den Objektinhalt abzuspeichern ist IMHO mehr Aufwand notwendig.