Zitat von
Opa Knack:
Hallo,
ich habe das Problem inzwischen dadurch gelöst, dass ich den "Fehlerwert" einfach auf die Farbe des TShapes gesetzt habe, und dass ich das Edit mit einem OnChange-Event ergänzt habe, welcher nur die Tasten 0-9, a-f, A-F und # zuläßt.
Genau so habe ich das vorhin auch gemeint.
Um jetzt noch die Korrektheit der Eingabe zu prüfen, muss man prüfen, ob das #-Zeichen mehrmals oder nur einmal, aber dafür nicht am Anfang vorkommt. das könnte in etwa so aussehen:
Delphi-Quellcode:
if length(Edit1.Text)>0 then begin
if ((pos('#', Edit1.Text)>1) or (pos('#', copy(Edit1.Text, 2, length(Edit1.text)))>=1)) then
ShowMessage('Eingabe ist ungültig!')
else begin
///Eingabe OK
machwas;
end;
end
else Showmessage('String ist leer');
(Ungetestet!)
MfG
Binärbaum