Hallo
,
mit dem hier, wollte ich prüfen, ob sich auch nur Zahlen im Editfeld befinden:
Delphi-Quellcode:
for i:=1 to length(edit1.text) do
begin
if copy(edit1.Text,i,1) <> '0' or '1' or '2' or '3' or '4' or '5' or '6' or '7' or '8' or '9' then showmessage('Die Angaben sind ungültig!');
end;
Aber er meckert wegen den vielen OR's.
Ich glaube, mal dies gesehen zu haben [0..10], aber wie geht das?
Außerdem möchte ich gerne prüfen, ob die Zahlen (Dezimalzahlen) als Farbwerte gültig sind. Beispiel: 67564312 ist als Dezimalzahl für Farbwerte gültig, aber 56578678965984093 nicht
Ich hoffe, ich habe mich verständlich genug ausgedrückt
.