Lehre Zeichenkette prüfen???

[kiar]

man war das ne geburt ,versuche es mal so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,
    b,
    c,
    gamma:real;
    g:integer;
begin
    a:=StrToFloat(Edit1.Text);
    b:=StrToFloat(Edit2.Text);
    g:=Radiogroup1.ItemIndex;
  case g of
    0: begin
        c:=StrToFloat(Edit3.Text);
        If ((length(Edit4.Text) = 0) and (a <> 0) and (b <> 0) and (c <> 0) ) then
           begin
            if detest(a,b,c) then
             begin
               Showmessage ('Ihre Eingaben sind richtig');
               exit;
             end;
           end else
                 MessageDlg('Eingabe unzulässig! Kein Dreieck konstruierbar',mtError,[mbOK],0)
           end;

    1: begin
        gamma:=StrToFloat(Edit4.Text);
        If ((length(Edit3.Text) = 0) and (a <> 0) and (b <> 0) and (gamma <> 0)) then
          begin
          if gamma > 180 then
             begin
               ShowMessage ('Ihre Eingaben sind richtig');
               exit;
             end;
          end else
           MessageDlg('Eingabe unzulässig! Kein Dreieck konstruierbar',mtError,[mbOK],0)
         end;
  end; 
  end;
end.

schau dir auch mal die die funktion detest an,die schein nicht zu funktionieren