TColor to String

Für Fragen zur Programmiersprache auf welcher Lazarus aufbaut
Antworten
charlytango
Beiträge: 843
Registriert: Sa 12. Sep 2015, 12:10
OS, Lazarus, FPC: Laz stable (2.2.6, 3.x)
CPU-Target: Win 32/64, Linux64
Wohnort: Wien

TColor to String

Beitrag von charlytango »

Hi

Für Umwandlungen gibt es "Try" Funktionen mit denen man testen kann ob sich die gewünschte Umwandlung überhaupt machen lässt (wenn zb bei TryStrToDate der umzuwandelnde String kein gültiges Datum gibt)

Würde so etwas für TColor brauchen

StringToColor - ColorToString gibt es -- nur wenn da was unerwartet im String steht kracht es natürlich.

Hab mal die Exception abgefangen -- geht das eleganter?

Code: Alles auswählen

try
   ButtonColor:=StringToColor(FoSettingsTable.FieldByName('value').AsString);
except
     ButtonColor:=clWhite;
end;

Irgend eine Idee?

Benutzeravatar
theo
Beiträge: 10497
Registriert: Mo 11. Sep 2006, 19:01

Re: TColor to String

Beitrag von theo »

Code: Alles auswählen

ButtonColor:=StringToColorDef(Edit1.text,clNone);  

Antworten