Loop?

[Regis Santos]

Olá amigos, eu tenho 1 ListBox que contém 100 Nomes... e também tenho uma página em html que tem um campo chamado Nomes ...

Gostaria de fazer o seguinte

O programa deveria testar Todos os Nomes no tal campo e esperasse 5 segundos até que testasse um novo nome....

WebBrowser1.OleObject.Document.All.Item('nomes', 0).value := ????????

[Jhonas]

use um componente TTimer para fazer essa comparação a cada 5 segundos

dentro de um comando FOR voce pode testar o valor

exe:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Timer1.Interval := 5000;// 5 segundos
   // o timer esta inicialmente desabilitado
   Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i : integer;
begin
   for i := 1 to 100 do
   begin
      if WebBrowser1.OleObject.Document.All.Item('nomes', 0).value =
         ListBox1.Items.Strings[i] then
         begin
            // comandos

         end;
   end;
end;

abraço