Loop?

23/01/2013

1

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 := ????????
Responder

Posts

23/01/2013

Joel Rodrigues

Experimenta o seguinte:
 var
	i : Integer;
begin
	for i := 0 to ListBox1.Items.Count - 1 do
	begin
		WebBrowser1.OleObject.Document.All.Item('nomes', 0).value := ListBox1.Items[i];
		Sleep(5000); // espera 5 segundos
	end;
end;
Responder

23/01/2013

Regis Santos

Funcionou Perfeitamente amigo...

Agora o seguinte.... ele ficando loopando infinitamente... como faço para que ele quando chegue na ultima linha do Listbox ele parar?


E tipo... no html faz a verificação de existe esse nome nele

Tipo

Se nome existir exibe um texto no html assim: "Nome existente" senão "Nome não existente"

Gostaria de fazer com que tipo....


Os nomes que funcionaram no teste do delphi fossem passados para meu memo tipo

Nome + Aprovado
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira