Möchte meinen Script verkürzen bzw. function erstellen

[Furtbichler]

Zitat von DeddyH:

...(der Code ist allerdings ungetestet).

Hättste mal .
Der Code ist leider 'Müll'. Hier sollen einfach nur Ziffern erlaubt sein, bei einem Komma gibt es eine kleine Sonderbehandlung. So geht's.

Delphi-Quellcode:

procedure DoOnKeyPress(Sender: TObject; var Key: char);
const
   BACKSPACE = #8;
var
   TheEdit: TEdit;

begin
   TheEdit := Sender as TEdit;
   If Key = ',' then
     if Pos(',', TheEdit.Text) > 0 then
       Key := #0
     else if TheEdit.Text = '' then begin
       TheEdit.Text := '0,';
       TheEdit.Selstart := Length(TheEdit.Text);
     end
   else if Not (Key in ['0'..'9', BACKSPACE]) then 
     Key := #0;
end;