Einzelnen Beitrag anzeigen

Dayripper

Registriert seit: 14. Sep 2005
3 Beiträge
 
#6

Re: Leeres editfeld überspringen /ignorieren

  Alt 14. Sep 2005, 19:35
erstmal danke für die antworten, klappt aber leider noch net so ganz wie ich mir des vorstelle. manchmal klappts aber manchmal komischerweise net, delphi zeigt dann unten an, dass die variablen einszeit, zweizeit und dreizeit nicht intialisiert wurden. die fehlermeldung die dann kommt is auch anders, Meldung:" ungültige Gleitkommaoperation".

geb den code des berechnen buttons mal hier rein( ist aufs wesentliche gekürzt):
Delphi-Quellcode:
begin

if not (ed1stop.Text = '') then
einszeit:= strtofloat (ed1stop.text);
if not (ed2stop.Text = '') then
zweizeit:= strtofloat (ed2stop.text);
if not (ed3stop.Text = '') then
dreizeit:= strtofloat (ed3stop.text);

rundenzahl:= strtoint (edrundenanzahl.text);



einsendzeit:= einszeit * rundenzahl + 10 ;
zweiendzeit:= zweizeit * rundenzahl + 18 ;
dreiendzeit:= dreizeit * rundenzahl + 25 ;

edend1.text:= floattostr (einsendzeit);
edend2.text:= floattostr (zweiendzeit);
edend3.text:= floattostr (dreiendzeit);


if (einsendzeit - zweiendzeit)<0 then if (einsendzeit - dreiendzeit) <0 then
 label8.caption:= ' 1-Stop-Strategie ist am Schnellsten ';

if (zweiendzeit - einsendzeit) <0 then if (zweiendzeit - dreiendzeit) <0 then
 label8.caption:= ' 2-Stop-Strategie ist am Schnellsten ';

if (dreiendzeit - einsendzeit) <0 then if (dreiendzeit - zweiendzeit) <0 then
 label8.caption:= ' 3-Stop-Strategie ist am Schnellsten ' ;

end;
  Mit Zitat antworten Zitat