Prüfen, ob Edit nur aus Zahlen besteht

**Chrissi91**

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

.

**Ferber**

Hi !
Aus meiner Sammlung:

markieren

Delphi-Quellcode:

			function IsNumeric(s:String):Boolean;

var i:Integer;

begin

  Result:=False;

  for i := 1 to Length(s) do

    if (s[i] > '9') or (s[i] < '0') then exit;

  Result:=True;

end;

**Amateurprofi**

Oder so :

markieren

Delphi-Quellcode:

			function IsNumeric(s:String):Boolean; 

var i:Integer; 

begin 

  Result:=False; 

  for i := 1 to Length(s) do 

    if not (s[i] in ['0'..'9']) then exit; 

  Result:=True; 

end;

oder so (einschließlich Prüfung auf 24 Bit RGB-Werte)

markieren

Delphi-Quellcode:

			function IsColorValue(s:String):Boolean; 

var v:cardinal; vc:integer 

begin 

  Val(s,v,vc)

  result:=(vc=0) and (v<=$FFFFFF);

end;

**Ferber**

'IsColorValue' ist natürlich sehr elegant.

**rasi**

Hallo,

hier noch eine Variante von mir:

zusammenfalten · markieren

Delphi-Quellcode:

			function CheckNumericAndColorValue(s:string):boolean;

var

  i     : integer;

  NumOk,

  ColOk : boolean;

begin

  NumOk:=True;

  ColOk:=True;

  // prüfen ob Eingabe im Bereich 0..9

  for i:=1 to length(s) do

  begin

    if not (s[i] in ['0'..'9']) then

    begin

      NumOk:=False;

      showmessage('Ungültiges Zeichen im Eingabe Feld!');

      break;

    end;

  end;

  // wenn Eingabe ok dann prüfen ob Zahl im Bereich 0..$FFFFFF (=16777215 dezimal)

  if NumOk and ((StrToInt(s)<0) or (StrToInt(s) > $FFFFFF)) then

  begin

    ColOk:=False;

    showmessage('Zahl liegt außerhalb des gültigen Farbwertes!');

  end;

  Result:=NumOk and ColOk; // gibt True zuück wenn beides in Ordnung war!

end;

Daß break im 1. if-Zweig dient dazu, bei mehreren "falschen" Zeichen im Edit-Feld nur einmal die Fehlermeldung auszugeben.

Der 2. if-Zweig wird nur dann ausgeführt wenn der 1. ok war.
Soviel ich weiß muß die Farbe im Bereich von 0..16777215 liegen (16777215=$FFFFFF in Hexadezimal) liegen.
Also Frage ich einfach nur diesen Bereich ab.

Du mußt nur darauf achten daß die Zahleneingabe im Edit-Feld den int64 Wertebereich nicht überschreitet,
da es sonst bei der StrToInt-Funktion zu einer Fehlermeldung kommt.

int64 Wetebereich:
+9223372036854775807 (=$7FFFFFFFFFFFFFFF hex),
-9223372036854775808 (=$8000000000000000 hex).

Ich hoffe, Dir geholfen zu haben

**Chrissi91**

Danke an alle, die mir geholfen haben! Das mit dem Zahlen prüfen funtkioniert super! Und mit dem Testen, ob der Farbwert auch gültig ist, habe ich aanders gelöst. Die Farbe wird mit einem Colordialog ausgewählt und automatisch von dort übernommen, d.h. es können kein Fehler kommen.

Danke ochmals!

Chrissi91

**lord.paddington**

...so habe ich es gerade umgesetzt:

markieren

Delphi-Quellcode:

			try

      Memo1.Lines[0]:=Edit1.Text;

      dummy:=StrToInt(Edit1.Text);

    except

      showmessage('ungültige Eingabe');

      exit;

    end;

**Luckie**

Warum nicht IntToStrDef oder TryIntToStr. Oder man lässt nur Zahlen bei der Eingabe zu.

**lord.paddington**

das würde dann wie aussehen???

**mkinzler**

Entweder TMaskEdit oder im KeyPress-Event manuell überprüfen

Prüfen, ob Edit nur aus Zahlen besteht

Prüfen, ob Edit nur aus Zahlen besteht

Re: Prüfen, ob Edit nur aus Zahlen besteht

Re: Prüfen, ob Edit nur aus Zahlen besteht

Re: Prüfen, ob Edit nur aus Zahlen besteht

Re: Prüfen, ob Edit nur aus Zahlen besteht

Re: Prüfen, ob Edit nur aus Zahlen besteht

Re: Prüfen, ob Edit nur aus Zahlen besteht

Re: Prüfen, ob Edit nur aus Zahlen besteht

Re: Prüfen, ob Edit nur aus Zahlen besteht

Re: Prüfen, ob Edit nur aus Zahlen besteht

Forumregeln

Ferber Registriert seit: 9. Mär 2005 Ort: Wien Umgebung 155 Beiträge Delphi 2006 Architect	#2 Re: Prüfen, ob Edit nur aus Zahlen besteht 19. Dez 2005, 19:35 Hi ! Aus meiner Sammlung: markieren Delphi-Quellcode: function IsNumeric(s:String):Boolean; var i:Integer; begin Result:=False; for i := 1 to Length(s) do if (s[i] > '9') or (s[i] < '0') then exit; Result:=True; end; Otto
	Zitat

Ferber Registriert seit: 9. Mär 2005 Ort: Wien Umgebung 155 Beiträge Delphi 2006 Architect	#4 Re: Prüfen, ob Edit nur aus Zahlen besteht 19. Dez 2005, 20:36 'IsColorValue' ist natürlich sehr elegant. Otto
	Zitat

Chrissi91 Registriert seit: 28. Jul 2005 849 Beiträge	#6 Re: Prüfen, ob Edit nur aus Zahlen besteht 20. Dez 2005, 05:12 Danke an alle, die mir geholfen haben! Das mit dem Zahlen prüfen funtkioniert super! Und mit dem Testen, ob der Farbwert auch gültig ist, habe ich aanders gelöst. Die Farbe wird mit einem Colordialog ausgewählt und automatisch von dort übernommen, d.h. es können kein Fehler kommen. Danke ochmals! Chrissi91
	Zitat

lord.paddington Registriert seit: 5. Jul 2008 6 Beiträge Delphi 6 Professional	#7 Re: Prüfen, ob Edit nur aus Zahlen besteht 5. Jul 2008, 14:26 ...so habe ich es gerade umgesetzt: markieren Delphi-Quellcode: try Memo1.Lines[0]:=Edit1.Text; dummy:=StrToInt(Edit1.Text); except showmessage('ungültige Eingabe'); exit; end; pfutsch ist hin und hin ist pfutsch
	Zitat

Luckie Registriert seit: 29. Mai 2002 37.621 Beiträge Delphi 2006 Professional	#8 Re: Prüfen, ob Edit nur aus Zahlen besteht 5. Jul 2008, 14:37 Warum nicht IntToStrDef oder TryIntToStr. Oder man lässt nur Zahlen bei der Eingabe zu. Michael Ein Teil meines Codes würde euch verunsichern.
	Zitat

lord.paddington Registriert seit: 5. Jul 2008 6 Beiträge Delphi 6 Professional	#9 Re: Prüfen, ob Edit nur aus Zahlen besteht 5. Jul 2008, 14:44 das würde dann wie aussehen??? pfutsch ist hin und hin ist pfutsch
	Zitat

mkinzler (Moderator) Registriert seit: 9. Dez 2005 Ort: Heilbronn 39.851 Beiträge Delphi 11 Alexandria	#10 Re: Prüfen, ob Edit nur aus Zahlen besteht 5. Jul 2008, 14:46 Entweder TMaskEdit oder im KeyPress-Event manuell überprüfen Markus Kinzler
	Zitat