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

[DeddyH]

Selber Müll, an begin und end gespart, so sind auch Buchstaben zulässig

Delphi-Quellcode:

const
   BACKSPACE = #8;
var
   TheEdit: TEdit;
begin
   TheEdit := Sender as TEdit;
   If Key = ',' then
    begin //<-- darf nicht fehlen
     if Pos(',', TheEdit.Text) > 0 then
       Key := #0
     else if TheEdit.Text = '' then begin
       TheEdit.Text := '0,';
       TheEdit.Selstart := Length(TheEdit.Text);
     end
    end //<-- auch nicht
   else if Not (Key in ['0'..'9', BACKSPACE]) then
     Key := #0;