[gaston260]

hola a todos ! tengo una pregunta que es la del titulo y no entiendo nada ! , hay $1.000.000 al que conteste correctamente

Código Delphi [-]
var RH_MSB,RH_LSB,T_MSB,T_LSB,CHKS: byte;    //bajtove vystupy z cidla
    sht_rh,sht_t: word;                      //vystup z cidla
    T,RH: integer;                           //vysledek  T= 2531, RH= 7523
    tmp1,tmp2,pom,pom2,pom3,pom4,pom5: word;

...

procedure CtiSHT;
begin
     Trans;
     Write_Byte(Code_Temp);
     TRISA := %00000001;         //PORTA je output jen RA0 je input
     //cekame az to zmeri a stahne do 0
     for pom4 :=1 to 65000 do
         begin
          if TestBit(PORTA,DATA)=0 then pom4 := 65000; <<<< (en pom4 me da el error !!)
         end;

Saludos !