Yo he entendido el asunto de otra forma, no sé si servirá:
Código Delphi [-]
procedure TForm1.Evento_Al_recibir(Sender: TObject; Count: Integer);
var Encontrado :Boolean;
begin
for i:= low(Modems) to High(Modems) do
begin
Encontrado := TVaCOMM(Sender) = Modems[i];
if Encontrado then Break;
end;
If Encontrado then
ShowMessage('Encontrado en el índice del array Modem: '+IntTostr(i));
end;
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|