In einen Memo nur Zahlen zulassen - Wie?

[Andreas L.]

Hi,
wie ermögliche ich das in einen Memo nur Zahlen eingegeben werden können? Also keine Buchstaben, keine Zeichen (. , / + etc.).

Greetz

[Die Muhkuh]

Einfach ins OnKexPress:

Delphi-Quellcode:

if not Key in ['1'..'9','0'] then
  Key := '';

[fkerber]

Hi!

Im OnKeyDown oder OnKeyPress (bin leider nicht sicher, eins von beidem) folgendes schreiben:

Delphi-Quellcode:

if not key in [#48..#57] then key:=#0;

Ich hoffe es sind keine Fehler drin.

Ciao fkerber

#48-#57 sind die Zahlen 0-9.

[Leuselator]

lies das hier,und das hier - das sollte helfen.
Gruß

[Andreas L.]

Zitat:

Zitat von Spider

Einfach ins OnKexPress:

Delphi-Quellcode:

if not Key in ['1'..'9','0'] then
  Key := '';

Code:

Operator ist auf diesen Operatorentyp nicht anwendbar!

<-- Der Compiler setzt dne Curser vor "in".

Mein Code:

Code:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if not key in ['1','2','3','4','5','6','7','8','9','0'] then
Showmessage('Bitte nur Zahlen von 0-9 eingeben!');
end;

Was ist mein Fehler?

[Matze]

Delphi-Quellcode:

if not (key in [#48..#57, #8]) then key := #0  //#8 ist Backspace, was man auch meistens braucht

[Andreas L.]

Zitat:

Zitat von Matze

Delphi-Quellcode:

if not (key in [#48..#57, #8]) then key := #0  //#8 ist Backspace, was man auch meistens braucht

Und was ist dann #0???

[Die Muhkuh]

#0 ist einfach nix

[Matze]

genau, dann soll er nix hinschreiben, keine Leerstelle, keinen Punkt, kein Semikolon, kein Buchstabe, ... :mrgreen:

[Andreas L.]

Ok, jetzt gehts. Danke für eure Hilfe.