[[egostar]]

Empezado por JoseFco

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; count:integer);
begin      
ComPort.ReadStr(Str, Count);    
if Str = 'DELPHI' then      
ShowMessage('Bienvenido')   
else if Str = 01 then   // <---aqui no esta comparando.   
  comport.WriteStr(#2#2) 
  else if Str = 2 then     
 UnProcedimiento   
else if Str = 3 then     
 OtroProcedimiento   
else    
  LoQueSea;
end;

Todo funciona bien hasta donde lo tengo comentado.
Me da un error si el 01 no lo pongo asi '01'
Un Saludo.

Sera porque Str es un char y no un entero?

Trata con esto:

Código Delphi [-]
else if Str = #1 then   // <---aqui no esta comparando.   
  comport.WriteStr(#2#2) 
  else if Str = #2 then     
 UnProcedimiento   
else if Str = #3 then     
 OtroProcedimiento

o así si es un String:

Código Delphi [-]
else if Str = '01' then   // <---aqui no esta comparando.   
  comport.WriteStr(#2#2) 
  else if Str = '02' then     
 UnProcedimiento   
else if Str = '03' then     
 OtroProcedimiento

Salud OS