prüfen ob der eingegebene String eine Zahl ist

[Matthias123]

Hallo,

ich habe das Problem, dass ich meine abzuspeichernden Dateien fortlaufend nummerieren möchte. Nun kann es passieren, dass jemand in das Eingabefeld mit der zu beginnenden Nummer einen Buchstaben eingibt.
Bei dem Versuch den String in ein Integer umzuwandeln gibts dann eine Fehlermeldung.

Kennt jemand einen Befehl mit dem ich überprüfen kann, ob es sich bei der Eingabe um eine Zahl handelt?

[Corpsman]

Da gibts mehrere Möglichkeiten

Entweder

Delphi-Quellcode:

zahl:=Strtointdef( Edit1.text,0);

oder mit nem Try Block

Delphi-Quellcode:

try
zahl :=strtoint(edit1.text);
except
 showmessage('Fehler keine zahl');
end;

[St.Pauli]

Es gibt davon tausende Themen hier im Forum. Such einfach mal nach edit nur zahlen :wink:

[freak4fun]

Du kannst auch von Anfang an keine Buchstaben in deinem Eingabefeld zulassen. Einfach mal hier im Forum suchen. ;) Hier zum Beispiel.

MfG
freak

[leddl]

Oder schau dir TryStrToInt mal an

[TAC]

Warum nicht gleich verhindern, daß eine Zahl eigegeben werden kann. Z.B. mit einem MaskEdit, da lässt sich dann auch gleich die Länge mit angeben.

Mfg
TAC

[naudoc]

Hi
sorry, aber was kommt hier anstelle von Zahl?

Zitat:

Da gibts mehrere Möglichkeiten

Entweder

Delphi-Quellcode:

zahl:=Strtointdef( Edit1.text,0);

oder mit nem Try Block

Delphi-Quellcode:

try
zahl :=strtoint(edit1.text);
except
showmessage('Fehler keine zahl');
end;

???

mfG Max

und Danke!

[leddl]

Zitat:

Zitat von naudoc

sorry, aber was kommt hier anstelle von Zahl?

Nix kommt stattdessen, "Zahl" is ne Variable ;) Und welchen Typ hat wohl ne Variable, die Zahl heißt? Kleiner Tip: Ein Teil des Typs ist im Namen der aufgerufenen Funktion versteckt :zwinker:

[naudoc]

Hi,

Wir würde denn ein Tryblock aussehen, der folgendes enthalten soll:
Wenn edit1.text eine zahl ist, dann {irgend ein Befehl}, wenn nicht showmessage('Keine Zahl')
?

mfG naudoc

[Hobby-Programmierer]

Zitat:

Zitat von naudoc

Wir würde denn ein Tryblock aussehen, der folgendes enthalten soll:
Wenn edit1.text eine zahl ist, dann {irgend ein Befehl}, wenn nicht showmessage('Keine Zahl')
?

Wie wäre es die Hilfe zu benutzen! Lies Dir mal alles über try - except oder try - finaly durch.

Delphi-Quellcode:

var Zahl: Integer;
begin
  try
    Zahl:= StrToInt(Edit1.Text);
    ShowMessage('Super !! Das ist eine Zahl');
   except
    ShowMessage('Fehler, keine zahl');
  end;
end;

LG Mario

[Hansa]

Zitat:

Zitat von naudoc

Wir würde denn ein Tryblock aussehen, der folgendes enthalten soll:
Wenn edit1.text eine zahl ist, dann {irgend ein Befehl}, wenn nicht showmessage('Keine Zahl')
?

Mann, mann. Cross-Postings innerhalb der DP ? Langsam würde ich wirklich mal das Gehirn einschalten. :twisted:

Das hier steht jetzt aktuell wegen Dir ca. 10mal neu hier drin. Wegen anderer wohl noch 500mal. Sollen auch die User genervt werden, dann eben so :

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);  //Das hier im OnKeyPress fängt alles ab was keine Zahl is
begin
  if not (Key in ['0'..'9']) then begin
    Key:= #0
    ShowMessage ('ungültiges Zeichen !');
  end;
end;

[ATS3788]

TryStrToInt(const S: string; out Value: Integer): Boolean;

[Sir Rufo]

Da wird sich der TE aber freuen, dass er nach ca. 8 Jahren eine Lösung bekommt :stupid:
(die im Beitrag #5 auch schon genannt wurde)