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?

Delphi-Quellcode:

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

[EDatabaseError]

Delphi-Quellcode:

if StrToInt(Edit1.Text) < 0 then Edit1.Font.Color := clRed

ist eher das was er sucht ;-)

Tobi

//EDIT mein 800. :firejump:

[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. :mrgreen:

//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 -xx:xx steht dann rot und sonst grün.

[HalloDu]

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

[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 :mrgreen:

[StoRmtec]

First chance exception at $7C812A5B. Exception class EAccessViolation with message 'Access violation at address 004D4070 in module 'Zeitprogramm.exe'. Read of address 00000000'. Process Zeitprogramm.exe (2008)

[HalloDu]

Könntest du mal bitte den Code posten. Wüsste gerne was du in das OnClick von dem Button geschrieben hast?

[StoRmtec]

Macht nur das

Delphi-Quellcode:

AdoTable1.Insert;

die ganzen DBEdits werden geleert das heißt sie sind leer und da glaube ich kommt
der Fehler. Wenn das Edit leer wird kann er ja nichts mehr anzeigen

[HalloDu]

Du musst einfach vorher Abfragen ob der Edit leer ist.

Das ist der Quellcode für das EditOnChange:

Delphi-Quellcode:

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

Hoff dann ist der Fehler behoben

[StoRmtec]

Okay danke es geht.

Danke
StoRmtec

[alcaeus]

Moin,

in Zukunft bitte pro Thema bitte nur eine Frage. In der Datenbanksparte waere die zweite Frage besser aufgehoben gewesen ;)
Hier mach ich zu damit nicht noch weiter vermischt wird.

Greetz
alcaeus