Hola Nelson, gracias por la colaboración. Lo ajusté a lo que necesito y parece trabajar bien.
Solo una cosa, cuando compilo me da 4 advertencias,
En estas líneas me dice: Comparison always evaluates to False
if MMT < 0 then
if HHT < 0 then
if SST < 0 then
Y esta línea: Variable 'MMT' might not have been initialized
if MMT < 0 then
Todo sobre Delphi XE.
|