Ich glaube wir sollten das mal zusammenfassen:
1.) n MaskEdit benutzen(Jasocul)
2.) nicht Zahl-Zeichen abfangen(turboPASCAL) Das würde ich dann aber noch etwas verbessern:
Delphi-Quellcode:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
...
if not (Key in ['0'..'9', '.', ',', #8 ]) then
begin
Beep;
Key := #0;
end;
...
end;
3.)TryStrToInt(marabu)
4.) Selbst ne Funktion schreiben.(wurde von mehreren vorgeschlagen)
Das hat aber den Nachtteil, dass man so auch sowas berücksichtigen muss:
Code:
,,99,,,,,,2....5,9.,5,.
Is das ne Zahl, wenn ja, welche?
Ich hoffe ich hab niemanden vergessen. Möglichkeiten sollten das jetzt auch genug sein. Ich persönlich würde Version 2 oder 3 nehmen.
mfg
Christian