Addiren mit Delphi

[mkinzler]

Delphi-Quellcode:

var
    a,b:Extended;
...
begin
   if TryStrToFloat( Edit1.Text, a)
   begin
     if TryStrToFloat( Edit2.Text, b) then
     begin
        Label1.Text := FloatToStr( a+b);
     end
     else
        ...//Edit2 enthält falschen Wert
  end;
    ...//Edit1 enthält falschen Wert
end;