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).

[Popov]

Zitat von Bjoerk:

Welchem Fehler?

Der Fehler der vorkommt wenn noch keine Farbe in der Ini gespeichert.

In deinem Code ist kein Fehler, das wollte ich nicht sagen, das ist nur ein Tipp aus der Praxis für die Praxis. Vielleicht wird so klarer was ich meine:

Delphi-Quellcode:

  Panel1.Color := TColor(Ini.ReadInteger('Section', 'Ident', Integer(Panel1.Color)));
...

Man muss keinen Defaut-Wert zuweisen, man nimmt den Default-Wert aus der Variable der man zuweisen will. Ist ein Wert in der Ini, wird der genommen, ansonsten bleibt er der alte.

[Perlsau]

[QUOTE=Popov;1301273]

Zitat von Bjoerk:

... das ist nur ein Tipp aus der Praxis für die Praxis.

Dozent mit Praxis? Ich dachte immer, Dozenten seien reine Theoretiker

[Popov]

Zitat von Perlsau:

Dozent mit Praxis? Ich dachte immer, Dozenten seien reine Theoretiker

Es gibt auch Leute die haben einen normalen Job und arbeiten nebenbei, bzw. gelegentlich als Dozenten, weil das ihnen Spaß macht