TColor in String umwandeln

[Stony2k]

Hi,

ist es möglich den TColor type, den der ColorDialog ausgibt in einen String umzuwandeln, um ihn in einer .ini-Datei zu speichern?

Delphi-Quellcode:

procedure Tfm_optionen.Title_color_changeClick(Sender: TObject);
Var
  IniDat : TIniFile;
begin
If ColorDialog1.Execute = True Then begin
  frm_main.UO_Commander_Title.Font.Color := ColorDialog1.Color;
  v_Title_color := ColorDialog1.Color;
  end;
  
IniDat := TIniFile.Create ('.\config.ini');
  with IniDat do begin
Writestring ('Optionen', 'Title color', v_Title_color);
  end;
IniDat.Free;
end;

v_title_color ist übrigens eine globale Variable.
Und natürlich bekomme ich dann diese Fehlermeldung:
[Fehler] Unit_befedit.pas(358): Inkompatible Typen: 'String' und 'TColor'

[Khabarakh]

TColor ist ein 32bit-Integer, du kannst ihn also über WriteInteger speichern.

[Jarmen_Kell]

Wie wäre es mit einem ColorToString?

[turboPASCAL]

sakura hat da schon mal etwas in der Art gemacht.
Schau mal hier: HTML Color --> TColor --> HTML Color

[Matze]

Aber für eine Ini reicht schon IntToStr oder ColorToString, kommt auf's Format an, als was speichern möchte.

Beispiel für clRed:

IntToStr liefert: 255
COlorToString: clRed

[Khabarakh]

Warum denn so kompliziert? Das Einfachste ist es doch, einen Typ auch als eben diesen zu speichern.

[turboPASCAL]

Ich nochmal,

Warum nicht gleich als Integer in die Ini schreiben ?

Delphi-Quellcode:

  // in Ini schreiben
  {IniDat.}WriteInteger('Optionen', 'Title color', v_Title_color);

  // aus Ini lesen
  v_Title_color := {IniDat.}ReadInteger('Optionen', 'Title color', 0);

[bigg]

...,weil dann Systemfarben nicht gespeichert werden.

PS: TColor = ^Cardinal

[Jasocul]

Ich habs bisher immer als Integer gespeichert/geladen und noch nie Probleme gehabt.

[barf00s]

TColor ist kein pointer auf Cardinal btw
sondern nur ein normales cardinal </senf>

[edit]
und mit dem integer klappts weil die systemfarben nicht größer als
$7FFFFFFF sind, was der maximalen positiven grenze vom integer entsprechen würde.

systemfarben befinden sich/beginnen bei $01000000 ...
[/edit]