Thema: Delphi Addiren mit Delphi

Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: peinliche angelegenhiet

  Alt 4. Okt 2006, 21:56
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;
Markus Kinzler
  Mit Zitat antworten Zitat