1:
2:
3:
4:
5:

  If edtY.text = ''
    and edtX.text <> 1
     and edtA.text <> 1
       and edtB.Text <> 1
         and edtC.text <> then ereignis                    

1:
2:
3:
4:
5:

  If edtY.text = ''
    and edtX.text <> '1'
     and edtA.text <> '1'
       and edtB.Text <> '1'
         and edtC.text <> 'x' then ereignis                    

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

if edit1.text='' then
 begin
 //das Edit ist leer
 end
  else
 begin
 // im Edit steht was drinne (Zahlen)
 end;                    

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

  
If (edtY.text = '')   and
   (edtX.text <> '1') and
   (edtA.text <> '1') and
   (edtB.Text <> '1') and
   (edtC.text <> 'x') // <-- oder was auch immer
then ereignis                    

1:
2:
3:
4:
5:
6:

  If ((edtY.text = '')
    and (edtX.text <> '1')
     and (edtA.text <> '1')
       and (edtB.Text <> '1')
         and (edtC.text <> 'x')) then 
ereignis                    

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

procedure TForm1.BtnRechneClick(Sender: TObject);
begin

  If (edtY.text = '') and
   (edtX.text <> '1') and
   (edtA.text <> '1') and
   (edtB.Text <> '1') and
   (edtC.text <> '1')
then application.Terminate;
end;                    

1:
2:
3:

application.terminate; //beendet das Programm

exit; //verlässt sofort die aktuelle Prozedur                    

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

procedure TForm1.BtnRechneClick(Sender: TObject);
var y, x, a, b, c :real;
begin

  If (edtY.text = '') and
    (edtX.text <> '1') and
     (edtA.text <> '1') and
      (edtB.Text <> '1') and
       (edtC.text <> '1') then begin (X:=strtofloat(edtX.text)) and
                                      (A:=strtofloat(edtA.text)) and
                                       (B:=strtofloat(edtB.Text)) and
                                        (C:=strtofloat(edtC.Text));
                               end;
end;                    

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

...
...
...