Farben in DB speichern & bei Programmlauf wieder einlesen

[DietmarB]

Hallo Freunde,

es ist gelungen !

Delphi-Quellcode:

var
  Form1: TForm1;
  FarbeInt : LongInt;

const
  TIniFileName = 'Test.Ini';
  clNew = TColor($00FF80);

  //farbe := StrToInt('$' + IntToHex(blau, 2) + IntToHex(gruen, 2) + IntToHex(rot, 2));
  //Diesen Codeschnipsel fand ich in einem anderen Beitrag
  //

implementation

{$R *.DFM}

procedure TForm1.Color1ChangeClick(Sender: TObject);
begin
  // welche Farbe hätten's denn gern ?
  ColorDialog1.Execute;
  // diese Farbe ist gewählt
  Panel1.Color := ColorDialog1.Color;
  // diesen Wert hat die Farbe
  Panel1.Caption := ColorToString(Panel1.Color);
  // das ist der Integer-Wert
  FarbeInt := ColorToRgb(Panel1.Color);
  // Anzeige als Integer
  Label2.Caption := IntToStr(FarbeInt);
  // Anzeige als Hex
  Label3.Caption := IntToHex(FarbeInt, 8);
end;

procedure TForm1.Color1SaveClick(Sender: TObject);
var
  TestIni : TIniFile;
begin
  TestIni := TIniFile.Create(TIniFileName);
  with TestIni do begin
    // save'n als String (in Hex)
    TestIni.WriteString('Colors', '4', IntToHex(FarbeInt, 8));
  end;
  TestIni.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  TestIni : TIniFile;
  Color1 : string;
begin
  TestIni := TIniFile.Create(TIniFileName);
  with TestIni do begin
    // zurück holen, als Hex aufbereiten und an Delphi übergeben
    Panel4.Color := StrToInt('$' + TestIni.ReadString('Colors', '4', '00AA0033'));
  end;
  TestIni.Free;
end;

Der Knackpunkt ist die Aufbereitung !
Da fehlte mir das Verständnis, zu dem, was ich in Delphi sah und das, was es eigentlich ist.
Nochmals Danke für alle Anregungen und Hilfen sowie den freundlichen Empfang !!!


[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]