variable leer??

[Privateer3000]

Einen wunderschönen 4. Advent an alle!

kurz der quell:

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

[Alexander]

Gibt er denn einen Fehler aus??

[Privateer3000]

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

[Luckie]

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

[Privateer3000]

ja White hatte es schon bemerkt, danke Luckie

[Privateer3000]

wenn ich jetzt das eingestellte laden will in Formshow:

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??

[Luckie]

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.

[Privateer3000]

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?

[Sebastian Nintemann]

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:

Delphi-Quellcode:

ini.WriteInteger('x','y',clWhite);

Gruß, Sebastian

[Luckie]

Zitat:

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.