editkeypress zahlen und zeichen

[Tailer]

Hi,

ich habe mir aus diesem post>>link<< den quelltext übernommen, da ich auch keine Buchstaben in meinem Taschenrechner wollte. Ich brauch aber so Zeichen wie:; , - + * / kann mir da jmd die "Nummern"(z.B #8 = Backspace) mitteilen, oder mir sagen wie ich die herrausbekomme?

mfg patrick

[Neutral General]

Hi,

Du kannst es auch so machen:

Delphi-Quellcode:

If not(key in ['0'..'9',#8,'ß','.',*wasauchimmer*])
    then key := #0;

Ansonsten findest du die Asciicodes z.B. hier

[DeddyH]

Schau Dir mal Ord() an.

[himitsu]

eine Möglichkeit wäre sich den Wert einfach mal anzeigen zu lassen.
aber warum viele nicht auf sowas kommen?

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Label1.Caption := IntToStr(Ord(key));
end;

[Tailer]

Ahso, ok danke. das hilft mir schon sehr viel weiter.