Forum: Sonstige Fragen zu Delphi
Delphi
by Pr0g,
17. Mär 2006
Warum machst du es nicht einfach so:
procedure TForm1.Button1Click(Sender: TObject);
var
lInput,
lValue: String;
lColor: Integer;
begin
// Eingabe aus Editfeld holen
lInput := AnsiLowerCase(Edit1.Text);
Forum: Sonstige Fragen zu Delphi
Delphi
by Pr0g,
16. Mär 2006
Du solltest die Zeile parsen, so dass du am Ende einen String hast, welcher genau den Wert zwischen der Klammer enthält. Nun kannst du per IdentToColor() den String in den entsprechenden Farbwert umwandeln lassen (denk dran vorher im Code ein "cl" anzufügen, damit der Name den Farbkonstanten von Delphi entspricht). Dabei kannst du direkt prüfen, ob die Funktion den Wert False zurücklieferte, was...