Fórum Ajuda com loop e listbox Delphi #507109
13/01/2015
0
Galera tenho uma listbox que adiciona vários arquivos, porem queria fazer um loop para enviar todos os arquivos selecionado da listbox,
só que se eu selecionar 10 arquivos na listbox ele envia um único arquivo 10vzs. e não os 10 arquivos diferentes, alguém por favor pra ajudar?
//adiciona todos arquivos na listbox
procedure TFrm_Principal.SpeedButton1Click(Sender: TObject);
begin
Listbox1.Items.Clear;
Memo1.Clear;
if OpenDialog1.Execute then
for i := 0 to OpenDialog1.Files.Count -1 do
Listbox1.Items.Add(OpenDialog1.Files[i])
end;
//envia arquivos.
procedure TFrm_Principal.BitBtn2Click(Sender: TObject);
begin
AjustaProxy;
AjustaUsuario;
for i:=0 to ListBox1.Items.Count -1 do
Memo1.Lines.Add( teste.Enviar( Edit1.Text, edObservacoes.Text ) );
end;
só que se eu selecionar 10 arquivos na listbox ele envia um único arquivo 10vzs. e não os 10 arquivos diferentes, alguém por favor pra ajudar?
//adiciona todos arquivos na listbox
procedure TFrm_Principal.SpeedButton1Click(Sender: TObject);
begin
Listbox1.Items.Clear;
Memo1.Clear;
if OpenDialog1.Execute then
for i := 0 to OpenDialog1.Files.Count -1 do
Listbox1.Items.Add(OpenDialog1.Files[i])
end;
//envia arquivos.
procedure TFrm_Principal.BitBtn2Click(Sender: TObject);
begin
AjustaProxy;
AjustaUsuario;
for i:=0 to ListBox1.Items.Count -1 do
Memo1.Lines.Add( teste.Enviar( Edit1.Text, edObservacoes.Text ) );
end;
Pedro
Curtir tópico
+ 0
Responder
Posts
14/01/2015
Renato Rubinho
Buenos,
Você não está selecionando o arquivo do listbox no seu loop.
Pelo que entendi, ao invés deste Edit1.Text, precisa selecionar o item do ListBox.
E a observação é a mesma para todos ?
Abraççç,
rrubinho
Você não está selecionando o arquivo do listbox no seu loop.
Pelo que entendi, ao invés deste Edit1.Text, precisa selecionar o item do ListBox.
E a observação é a mesma para todos ?
//envia arquivos. procedure TFrm_Principal.BitBtn2Click(Sender: TObject); begin AjustaProxy; AjustaUsuario; for i:=0 to ListBox1.Items.Count -1 do Memo1.Lines.Add( teste.Enviar( ListBox1.Items[i], edObservacoes.Text ) ); end;
Abraççç,
rrubinho
Responder
Gostei + 0
14/01/2015
Pedro
Na verdade o item que eu selecionar no Listbox, ele envia o caminho do arquivo para o Edit1, ai faz o envio. ai gostaria de um loop para selecionar o próximo item do Listbox e consequentemente alteraria o caminho no Edit1 e enviaria, e assim iria até o fim dos item do Listbox.
Responder
Gostei + 0
14/01/2015
Pedro
Mas deu certo alterei para
Memo1.Lines.Add( teste.Enviar( ListBox1.Items[i], edObservacoes.Text ) );
como você disse e deu certo.
vlw ai.
Memo1.Lines.Add( teste.Enviar( ListBox1.Items[i], edObservacoes.Text ) );
como você disse e deu certo.
vlw ai.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)