Text einfärben

[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

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