1:
2:
3:
4:
5:
6:
7:
8:

 ...
 //Prüfen ob was eingegeben wurde
 if length(edit1.text) > 0 then
 begin
  //Prüfen, ob Eingabe im Bereich liegt
 end
 else
  //Abruch, da keine Eingabe					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var E1,E2,E3,E4,E5: integer;
begin
 try 
  E1:=strtoint(Edit1.Text);
 except
  E1:=0; //ggf. ShowMessage-Meldung
 end;

 try 
  E2:=strtoint(Edit2.Text);
 except
  E2:=0; //ggf. ShowMessage-Meldung
 end;

...
if ...
...

end;					

1:
2:

if(edit1.text <> 1) or
           (edit1.text =1) ...					

1:

if(edit1.text > 99999999999)					

1:

if(edit1.text <>0,00000000000000000001) then...					

1:
2:
3:
4:
5:

try                  //versuche ob das gehen würde
  E1:=strtoint(Edit1.Text);
 except              //wenn es geht dann mache folgendes
  E1:=0; //ggf. ShowMessage-Meldung
 end;					

1:
2:
3:
4:
5:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', DecimalSeparator, ThousandSeparator, Char(VK_BACK)]) then
  Key := #0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Edit1Change(Sender: TObject);
var
 Error: Integer;
 Dummy: Integer;
begin
 val(Trim(Edit1.Text), Dummy, Error);
 if Error<>0 then
   Edit1.Color:=clRed
 else
   Edit1.Color:=clWindow;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

 
 procedure meineFormeln(status: integer);
 begin
  case status of
   1: begin
       //Formel 1
      end;
   2: begin
       //Formel 2
      end;
   ...
 end;
 
 procedure pruefeEingabe;
 begin
  if length(edit1.text) <= 0 then
  begin
   meineFormel(1);
   exit; //Damit er nicht weiterläuft
  end
  else
   if length(edit2.text) <= 0 then
   begin
    meineFormel(2);
    exit;
   end
   else 
    if ....
 end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
//Läßt nur gültige Zahlen-Eingaben zu
if not (Key in ['0'..'9', DecimalSeparator, Char(VK_BACK)]) then
  Key := #0;
 if (Key = DecimalSeparator) AND (pos(Key, (Sender as TCustomEdit).Text) > 0) then
    Key := #0;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:

procedure Rechnen;
var Formel1, Formel2, Formel3, Formel4, Formel5 : boolean;
 begin
 // Bestimme welche Formel
 //Edit1 ist leer
   Formel1 := (Edit2.text<>"") AND (Edit3.text<>"") AND (Edit4.text<>"") AND (Edit5.text<>"");
 //Edit2 ist leer
   Formel2 := (Edit1.text<>"") AND (Edit3.text<>"") AND (Edit4.text<>"") AND (Edit5.text<>""); 
 //Edit3 ist leer
   Formel3 := (Edit1.text<>"") AND (Edit2.text<>"") AND (Edit4.text<>"") AND (Edit5.text<>"");
 //Edit4 ist leer
   Formel4 := (Edit1.text<>"") AND (Edit2.text<>"") AND (Edit3.text<>"") AND (Edit5.text<>"");
 //Edit5 ist leer
   Formel5 := (Edit1.text<>"") AND (Edit2.text<>"") AND (Edit3.text<>"") AND (Edit4.text<>"");

 //Setze Formel
  If Formel1 then
   begin
   //Hier entsprechende Formel einsetzen
   //z.B. :
   Edit1.text := FloatToStr(strtofloat(Edit2) + strtofloat(Edit3) * strtofloat(Edit4) + strtofloat(Edit5));
   end;
  If Formel2 then
   begin
   //Hier entsprechende Formel einsetzen
   end;
  If Formel3 then
   begin
   //Hier entsprechende Formel einsetzen
   end;
  If Formel4 then
   begin
   //Hier entsprechende Formel einsetzen
   end;
  If Formel5 then
   begin
   //Hier entsprechende Formel einsetzen
   end;

 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

try

edit.text:=floattostr(meine fornmel);

except
try
edit2.text:=floattostr(meinezweiteformel);
except
try

...
...
...