Abfragen

[r2c2]

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