Eingaben in Edit prüfen

[Tomate]

Hallo Gemeinde,
bin neu hier und hab direkt mal eine Frage

es gibt ja viele Beiträge in Sachen
"Eingabe auf Zahlen bzw. Text prüfen"

ok diese Beiträge haben mir auch geholfen, nur ich müsste die Editbox auf Zahlen überprüfen und wenn keine Zahlen drin stehen soll eine showmessage ausgegeben werden. Programieren tuhe ich mit Delphi 2005 PE

Hier mal mein Code

Delphi-Quellcode:

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (Key in ['0'..'9', Char(VK_BACK)]) then
  showmessage('Nur Zahlen');
  Key := #0;

end;

Klappt super, die Showmessage kommt wenn ich irgendwas anderes außer 0-9 und back eingebe, nur er schreibt keine 0-9 mehr in die Edit. Nimmt also die Eingaben die richtig sind auch nicht mehr an.
Bei 0-9 kommt keine Fehlermeldung, er schreibt Sie nur nicht in die Editbox rein.

Kann mir mal einer Helfen :D ich hab keine Idee im moment woran es liegen könnte

MFG
Andre

[mkinzler]

Das

Delphi-Quellcode:

Key := #0;

wird auch immer aufgerufen, so müßte es heißen:

Delphi-Quellcode:

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', Char(VK_BACK)]) then
  begin
    showmessage('Nur Zahlen');
    Key := #0;
  end;
end;

[Tomate]

Ja danke funzt... aber ääh wie war das eine end; jetzt die ursache?? blicke da noch nicht so ganz durch :D

[mkinzler]

Es war das begin..end. Ohne diese wird beim then nur eine Zeile beachtet. der Rest wurde auf jedenfall ausgeführt.

[Tomate]

Ach so... ja das wusste ich nicht. Bin ein umsteiger von C++ zu Delphi :D und wenn ich in C++ ne { aufmache (was hier ja then ist)
dann ist alles dannach bis } zu (was hier end; ist) in der if bedingung. naja gut das is halt C++ vs. Delphi lol :D
Danke dir

Andre

[freak4fun]

{ = begin
} = end;

then gehört zu if, das gibts imho bei c++ net. ;)

MfG
freak

[mkinzler]

Zitat:

und wenn ich in C++ ne { aufmache (was hier ja then ist)

Nein ein { entspricht dem begin und ein } dem end.

[Tomate]

Ja sag ich ja :D deswegen war mein Delphi-Code ja auch nicht richtig :D