Text einfärben

[StoRmtec]

Hallo

Ich hätte eine Frage. Und zwar wie kann ich zB bei einem Editfeld den Text einfärben
aber nur wenn zB -08:00 steht dann sollte es rot sein wenn kein - steht dann soll
es grün sein.

Danke

[mkinzler]

Und was ist das Problem?

if Edit.Text = '-8:00' then Edit.Font.Color := clRed;

[EDatabaseError]

if StrToInt(Edit1.Text) < 0 then Edit1.Font.Color := clRed ist eher das was er sucht

Tobi

//EDIT mein 800.

[HalloDu]

Man könnte es so machen. Man muss nur Folgendes in das Change-Event des Edits reinschreiben

Delphi-Quellcode:

if trim((Sender as TEdit).Text)[1] = '-' then
(Sender as TEdit).Font.Color := clRed
else
(Sender as TEdit).Font.Color := clGreen;

Dann wird wenn das erste Zeichen ein Minus ist der Text Rot eingefärbt. Sogar wenn vor dem Minus noch Leerstellen sind.

Hoffe es hilft.

//Edit wusste nicht das es eine Zahl ist.

[mkinzler]

Je nach Bedingung er hat ja geschrieben

Zitat:

aber nur wenn zB -08:00

und das habe ich geschrieben

[StoRmtec]

Danke war nur ein Beispiel wenn -xxx steht dann rot und sonst grün.

[HalloDu]

Also ist es doch keine Zahl und somit kann man auch nicht StrToInt benutzten.
Kenn keine Zahl mit ":" höchstens Zeiten.

[StoRmtec]

Super danke HalloDu
Funktioniert super

Danke
StoRmtec

[StoRmtec]

HalloDu

Jetzt habe ich noch was wenn ich zB auf den Neu Button klicke (soll ein neuer Datensatz werden)
dann bekomme ich einen Fehlermeldung

[HalloDu]

Welche?
Ohne Fehlermeldung kann ich nicht helfen.

//Edit nicht Frage sonder Fehlermeldung