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
4. Okt 2006, 21:56
zusammenfalten
·
markieren
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
Zitat
mkinzler
Öffentliches Profil ansehen
Mehr Beiträge von mkinzler finden