Nur Buchstaben im Edit

[HentaiD]

Wie das Topic schon sagt ...
Ich würde gerne in meinem Edit nur Buchstaben sehen,da es eine namenseingabe werden soll,die ich hinterher für einen Algorythmus brauche.
Auf Knopfdruck soll das dann geprüft werden (Also ich geh davon aus,dass ich keinen timer brauche,das möchte ich jedenfalls vermeiden)

Greetz,D

[Daniel B]

http://www.delphipraxis.net/internal...highlight=edit
Du musst nur die Zahlen durch Deine Buchstaben austauschen.

[Matze]

Also einfach so:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key in [#48..#57] then key := #0;
end;

Damit du nicht erst rumprobieren musst.

[Daniel B]

Zitat von Matze:

Damit du nicht erst rumprobieren musst.

Lass Ihn doch wenigstens eine Sekunde lang Sein Hirn einschalten!
Kein Wunder das hier ständig solche Fragen kommen.

[HentaiD]

lol danke ^^ habs noch so erweitert , dass backspace und space funzt , aber Zeichen hab ich auch rausgeschmissen

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If not(key in [#8,#32,#65..#90,#97..#122])
    then key := #0 ;
end;

Greetz,D

[Matze]

@Daniel: Sorry, du hast Recht.

@HentaiD: Backspace und Space funktionoieren bei meinem Code auch.

[trashar]

hallo
genau das mit den zahlen hab ich gesucht
meine frage
der wert für ,

oder gibs irgendwo so eine tabelle???
mfg

[Christian Seehase]

Moin trashbar,

Du kannst dafür z.B. die Zeichentabelle von Windows verwenden, oder Du installierst Dir mal die Gexperts (www.gexperts.org). Die enthalten auch eine Ascii Zeichentabelle.

[HentaiD]

HIER ist eine gekürzte ASCII Tabelle , für das wichtigste aber zu gebrauchen

Greetz,D

[SirThornberry]

an sich ist das Sourceschnippsel ok, du solltest allerdings noch was ins onChange ereingis reinmachen da bei "copy-->paste" ins Editfeld sonst alles akzeptiert wird