1:
2:
3:

if (Form1.Seite_a.Text<='0') or (Form1.Seite_b.Text<='0') or (Form1.Hoehe.Text<='0') then

     application.MessageBox('Bitte nur Zahlen eingeben!','Fehlermeldung',16);					

1:
2:
3:

if ( (StrToIntDef(Form1.Seite_a.Text,-1) = -1)
  or (StrToIntDef(Form1.Seite_b.Text,-1) = -1)
  or (StrToIntDef(Form1.Hoehe.Text,-1) = -1) ) then					

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

procedure TForm1.Button1Click(Sender: TObject);
var
test : integer;
begin
  try
  test := strtoint(Edit1.text);
  test := strtoint(Edit2.text);
  test := strtoint(Edit3.text);
  //Code was passieren soll wenn korrekt ausgefüllt
  except
  ShowMessage('Bitte alle Felder korrekt ausfüllen');
  end;
end;					

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

procedure TForm1.RechnenClick(Sender: TObject);
var a,b,h,O,V: real;
begin
if (Form1.Wuerfel.checked) and (Form1.Seite_a.Text<='0') {or (Form1.Seite_b.Text<='0') or (Form1.Hoehe.Text<='0')} then

     application.MessageBox('Bitte Zahlen eingeben!','Fehlermeldung',16);
     exit;

  a:= StrToFloat (Form1.Seite_a.Text);
  b:= StrToFloat (Form1.Seite_b.Text);
  h:= StrToFloat (Form1.Hoehe.Text);					

1:
2:
3:
4:
5:

  if (Form1.Seite_a.Text<='0') or (Form1.Seite_b.Text<='0') or (Form1.Hoehe.Text<='0') then  
  begin
    application.MessageBox('Bitte nur Zahlen eingeben!','Fehlermeldung',16);  
    exit; 
  end;					

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

  if ( (StrToIntDef(Form1.Seite_a.Text,-1) = -1)  
  or (StrToIntDef(Form1.Seite_b.Text,-1) = -1)  
  or (StrToIntDef(Form1.Hoehe.Text,-1) = -1) ) then
  begin
    application.MessageBox('Bitte nur Zahlen eingeben!','Fehlermeldung',16);  
    exit; 
  end;					

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

  if ( (StrToIntDef(Form1.Seite_a.Text,-1) = -1)  
  or (StrToIntDef(Form1.Seite_b.Text,-1) = -1)  
  or (StrToIntDef(Form1.Hoehe.Text,-1) = -1) ) then
  begin
    application.MessageBox('Bitte nur Zahlen eingeben!','Fehlermeldung',16);  
  end
  else
  begin
    //Deine Berechnung
  end;					

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

  if ( (StrToFloatDef(Form1.Seite_a.Text,-1) <> -1)
   and (StrToFloatDef(Form1.Seite_b.Text,-1) <> -1)
   and (StrToFloatDef(Form1.Hoehe.Text,-1) <> -1) ) then begin
    // deine Berechnung
  end
  else
    MessageDlg('Bitte nur Zahlen eingeben!',mtWarning,[mbCancel],0);					

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

if (Form1.Wuerfel.checked) and (Form1.Seite_a.Text<='0')then
      begin
     application.MessageBox('Bitte Zahlen eingeben!','Fehlermeldung',16);
     exit;
     end;

if (Form1.QuadP.checked) and (Form1.Seite_a.Text<='0') or (Form1.Hoehe.Text<='0') then
     begin
     application.MessageBox('Bitte Zahlen eingeben!','Fehlermeldung',16);
     exit;
     end;

if (Form1.Quader.checked=true) and (Form1.Seite_a.Text<='0') or (Form1.Seite_b.Text<='0') or (Form1.Hoehe.Text<='0') then
     begin
     application.MessageBox('Bitte Zahlen eingeben!','Fehlermeldung',16);
     exit;
     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:
41:
42:
43:
44:

type
 TFields = (fiA, fiH, fiB);
 TShapeType = (stWuerfel, stQuadP, stQuader);
 TShapeInfo = record
  ShapeType: TShapeType;
  NeededFields: set of TFields;
 end;

const
 siWuerfel: TShapeInfo = (ShapeType: stWuerfel; NeededFields: [fiA]);
 siQuadP  : TShapeInfo = (ShapeType: stQuadP;   NeededFields: [fiA,fiH]);
 siQuader : TShapeInfo = (ShapeType: stQuader;  NeededFields: [fiA,fiB,fiH]);

function CheckAndConv(const S: String): Extended;
begin
  Result := StrToInt(S);
  if Result < 0 then
   Abort;
end;

procedure TForm1.RechnenClick(Sender: TObject);
var
 A, H, B: Extended;
 Shape: TShapeInfo;
begin
 if Wuerfel.Checked then Shape := siWuerfel else
 if QuadP.Checked then Shape := siQuadP else
 if Quader.Checked then Shape := siQuader else
  raise Exception.Create('Unknown selection.');
 with Shape do
  try
   if fiA in NeededFields then A := CheckAndConv(Seite_a.Text);
   if fiB in NeededFields then B := CheckAndConv(Seite_b.Text);
   if fiH in NeededFields then H := CheckAndConv(Hoehe.Text);
  except
   MessageDlg('Ungültige Zahl eingegeben.', mtError, [mbOk], 0);
   Abort;
  end;
 Case Shape.ShapeType of
  stWuerfel:; // Berechnung für Wuerfel
  stQuadP  :; // Berechnung für QuadP
  stQuader :; // Berechnung für Quader
 end;
end;					

1:
2:
3:
4:
5:

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

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

  if (Form1.Seite_a.Text = '') or (Form1.Seite_b.Text = '') 
    or (Form1.Hoehe.Text = '') then
  begin
    Application.MessageBox('Bitte nur Zahlen eingeben!', 'Fehlermeldung',
      mb_IconStop + mb_Ok);
    Exit;
  end;					

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

procedure TForm1.RechnenClick(Sender: TObject);
var a,b,h,O,V: real;
begin
if (Form1.Wuerfel.checked=true) then
begin
Form1.Seite_b.Text:='1';
Form1.Hoehe.Text:='1';
end;

if (Form1.QuadP.checked=true) then
begin
Form1.Seite_b.Text:='1';
end;

if (Form1.Seite_a.Text<='0')or (Form1.Seite_b.Text<='0') or (Form1.Hoehe.Text<='0') then
      begin
     application.MessageBox('Bitte Zahlen eingeben!','Fehlermeldung',mb_IconStop + mb_Ok);
     exit;
     end;