Farbe speichern und wiedergeben

[Bjoerk]

Delphi-Quellcode:

  AColor := TColor(Ini.ReadInteger('Section', 'Ident', Integer(clWhite)));

  ..

  Ini.WriteInteger('Section', 'Ident', Integer(AColor));

[Popov]

@Bjoerk

Kann man machen und eigentlich sollte man es so machen. Sollte aber auch ohne die Umwandlung funktionieren.

Aber wo wir schon mal da sind, ich mach das i.d.R. so mit dem Laden der Farbe aus der Ini:

Delphi-Quellcode:

AColor := TColor(Ini.ReadInteger('Section', 'Ident', Integer(AColor)));
//...

Hier wird beim Fehler keine andere Farbe zugewiesen, sondern bleibt gleich wie vorher.

[Bjoerk]

Color ist ein int32. Deshalb kann man sich gelegentlich den Cast schenken. Eigentlich LongInt.

Welchem Fehler? Bleiben tut da gar nix? Ist der Key nicht vorhanden wird Default verwendet. Ist der Key da, aber der Value nicht da oder fehlerhaft gibt es normalerweise eine Exception (Intern StrToInt).