inkompatible Typen

schlumsch · Beiträge: 122 alles Win :) Delphi 2005 Prof, Delphi 2007

Hallo,

ich habe 2 Edit oder auch Maskedit felder. In einem Fald sollen nur Buchstaben, im anderen Feld nur Zahlen erlaubt sein. Nun habe ich folgende Lösung gefunden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.EditNewIntervallKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if not (Key in ['0'..'9', ',', #8]) then // #8 ist die Backspace Taste
    Key := #0;
end;

Hier kriege ich allerdings die Fehlermeldung: Inkompatible Typen Word und Char. Wie kann ich das lösen bzw. gibt es eine andere Möglichkeit die oben genannten einschränkungen zu treffen?

dank euch schon einmal, lg

Moderiert von Narses: Code- durch Delphi-Tags ersetzt
Moderiert von Narses: Überflüssige Zeilenumbrüche/Leerzeilen entfernt.

_________________
icq 102779206
"God is real, unless declared integer..."

elundril · Verfasst: Mi 28.10.09 23:14

probiers mal im OnKeyPress. da sollte der Parameter "Key" vom Typ Character sein.

lg elundril

_________________

This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.

jaenicke · Verfasst: Do 29.10.09 00:06

Oder du musst überall die Asciicodes benutzen, also nicht die Zeichen wie #8 sondern nur die 8 und analog die Zahlenwerte bei den anderen Zeichen.

thepaine91 · Verfasst: Do 29.10.09 08:25

markieren

Delphi-Quelltext

1:	if not ((Key in [$30..$39]) or (Key = 188 ) or (Key = VK_BACK)) then

mfg nic

schlumsch · Beiträge: 122 alles Win :) Delphi 2005 Prof, Delphi 2007

Ich danke euch für die Hilfe, probiere ich heute Abend gleich aus aber es klingt zumindest mal nach "gelöst"

_________________
icq 102779206
"God is real, unless declared integer..."

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme