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

function isfloat(const eingabe:string;var zahl:extended):boolean;//Prüfen auf
var code:integer;                                                //float
begin
val(eingabe,zahl,code);
if (code=0) then
   result:=true
else
    result:=false;
end;					

1:

if (isfloat(edit1.text,a)) and (isfloat(edit2.text,b)) then					

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 TForm1.Button1Click(Sender: TObject);            //Start Button

var a,b,x:extended;

begin
label6.caption:='';
if (isfloat(edit1.text,a)) and (isfloat(edit2.text,b)) then//Wenn edit1 und edit2 ne floatzahl enthalten, dann wird das hier ausgeführt
   begin
   if (a=0) then                                   //Ablauf siehe Algorithmus
      begin
      if (b=0) then
         begin
         edit3.text:='alle x aus R';
         end
      else
         begin
         edit3.text:='keine Lösung';
         end;
      end
   else
      begin
      x:=-b/a;
      edit3.text:=floattostr(x);
      end;
   end                                               //Ende des Algorithmus
else//Edit1 oder edit2 oder beide enthalten keine Floatzahl
    showmessage('Bitte korrekte Zahlen eingeben');

end;					

1:

a:=StrToInt(edit1.text);					

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

bIstZahl: boolean;

try
   iZahl := StrToInt(Edit1.Text);
   bIstZahl := true;
except
   bIstZahl := false;
end;					

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

try
   aDate := StrToDate(Edit1.Text);
   ShowMessage('Gültiges Datum in Edit1');
except
   ShowMessage('Ungültiges Datum in Edit1');
end;