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:

markieren

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?

markieren

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.

editkeypress zahlen und zeichen

editkeypress zahlen und zeichen

Re: editkeypress zahlen und zeichen

Re: editkeypress zahlen und zeichen

Re: editkeypress zahlen und zeichen

Re: editkeypress zahlen und zeichen

Forumregeln

Tailer Registriert seit: 14. Feb 2009 8 Beiträge	#1 editkeypress zahlen und zeichen 18. Feb 2009, 21:13 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
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.625 Beiträge Delphi 12 Athens	#3 Re: editkeypress zahlen und zeichen 18. Feb 2009, 21:22 Schau Dir mal Ord() an. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

himitsu Registriert seit: 11. Okt 2003 Ort: Elbflorenz 44.184 Beiträge Delphi 12 Athens	#4 Re: editkeypress zahlen und zeichen 18. Feb 2009, 21:22 eine Möglichkeit wäre sich den Wert einfach mal anzeigen zu lassen. aber warum viele nicht auf sowas kommen? markieren Delphi-Quellcode: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin Label1.Caption := IntToStr(Ord(key)); end; $2B or not $2B
	Zitat

Tailer Registriert seit: 14. Feb 2009 8 Beiträge	#5 Re: editkeypress zahlen und zeichen 18. Feb 2009, 21:25 Ahso, ok danke. das hilft mir schon sehr viel weiter.
	Zitat