Einen wunderschönen 4. Advent an alle!

kurz der quell:

markieren

Code:

procedure TForm4.RadioGroup1Click(Sender: TObject);
var
ini3: TInifile;
begin
case RadioGroup1.ItemIndex of
0: BGFarbindex := 'clRed';
1: BGFarbindex := 'clYellow';
2: BGFarbindex := 'clBlue';
3: BGFarbindex := 'clWithe';
end;
Ini3:=TIniFile.Create('dat\settings.ini');
    try
    Ini3.WriteString('Farben','BGPreis',BGFarbindex);
    finally
    Ini3.Free;
end;
end;

BGFarbindex ist eine globale variable. soweit so gut.
Es wird auch der entsprechende Eintrag in der ini erstellt.
Aber der Wert ist leer?!was läuft schief??

Grüsse

Gibt er denn einen Fehler aus??

alles Banane, hab vergessen die Radiobuttons als Item hinzuzufügen,
oh Gott schlagt mich MAL EINER!

Das: 'clWithe' könnte später unter Umständen zu Fehlern führen.

ja White hatte es schon bemerkt, danke Luckie

wenn ich jetzt das eingestellte laden will in Formshow:

markieren

Code:

...
BGFarbindex:=ReadString('Farben','BGPreis','clMaroon');
for I := 1 to 34 do
      TLabel(FindComponent('Label' + IntToStr(I))).Color:=BGFarbindex) ;
....

meint der Compiler inkompatible Typen TColor und String.wie lös ich das??

Na ja, die Fehlermeldung sagt doch alle. Ein String ist eben kein TColor-Wert. Aber es gibt Funktionen, die das umwandeln können. Kuck mal in der Hilfe.

ja Typenumwandlung.
Aber aus einer Ini kann ich doch nur String,Integer oder Bool auslesen.
Also mus die Umwandlung nach der Variablezuweisung geschehen!
Aber wie?
irgendwo muss ein "as TColor" rein,oder nicht?

Ich glaube nicht, dass es eine Funktion zum umwandeln der Farbkonstantennamen als String in TColor gibt. Da eine Farbe (TColor) nichts anderes als eine Integer Zahl ist, kannst du es ja direkt als Integer in die Ini speichern. (type TColor = -$7FFFFFFF-1..$7FFFFFFF. Da folglich die Konstanten auch nur für Integerzahlen stehen funktioniert folgendes:

ini.WriteInteger('x','y',clWhite); Gruß, Sebastian

Zitat von Grotesquery:

Ich glaube nicht, dass es eine Funktion zum umwandeln der Farbkonstantennamen als String in TColor gibt.

Na dann kuck mal im Index der Hilfe und du wirst StringToColor und ColorToString finden.