In Edit-Box nur Zahlen und Kommatas zulassen?

[MCXSC]

In Edit-Box nur Zahlen und Kommatas zulassen?

Hallo!

Mit

Delphi-Quellcode:

if not (key in [#48..#57, #8]) then key := #0

kann mn in einem Edit-Feld nur Zahlen zulassen. Wie kann ich das Programm sagen, dass es nur Zahlen UND Kommatas zulassen soll?

Und noch eine zweite Frage hinterher;

In einem Memo-Feld soll bei betätigen der Enter-Taste folgendes geschehen:

1.)

2. Eine Zeile tiefer

^ wie realisiere ich das?

IdS, mcXsc

[scp]

Einfach den ASCII-Code für das Kommazeichen (#44) hinzufügen

Delphi-Quellcode:

if not (key in [#48..#57, #8, #44]) then key := #0

[Matze]

Und so geht das 2.

Delphi-Quellcode:

if key = vk_return then
  Memo1.Lines.Strings[Memo1.CaretPos.Y]:=Memo1.Lines.Strings[memo1.CaretPos.Y]+'
';

Edit: Tags verwechselt

[MCXSC]

Cool, danke. Funzt sogar :-D

[MCXSC]

Das geht aber nicht:

Delphi-Quellcode:

if key = vk_return then 
  Memo1.Lines.Strings[Memo1.CaretPos.Y]:=Memo1.Lines.Strings[memo1.CaretPos.Y]+'
';

Dann kommt immer als Fehler "Ungültige Typen".