Sicherung (Edit Feld-Button)

[bitsetter]

Habe gerade gesehen, dass du für jedes Feld ein onExit Ereignis hat. Besser wäre doch wenn du allen deinen Feldern das gleiche onExit Ereignis im OI zuweist. Das macht den Code viel übersichtlicher, kürzer und Fehler unanfälliger. Deinen Code habe ich mal mit übernommen:

Delphi-Quellcode:

procedure procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Sender is TEdit then
    with Sender as TEdit do
    begin
      if Name = 'Edit9' then
      begin
         //nur Buchstaben...
      end
      else
      begin//nur Ziffern
        //Fehler keine Eingabe
        if text='' then
        begin
          showmessage('Ihre Eingabe fehlt! Bitte geben sie hier eine Ziffer ein!');
          setfocus;
        end
        else//Fehler keine Ziffer
          if (ord(text[1])>57) or (ord(text[1])<48) then
          begin
            showmessage('Falsche Eingabe, bitte hier eine Ziffer eingeben!');
            text := '';
            setfocus;
          end;
      end;
    end;
end;