Ajuda com loop e listbox Delphi
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
Curtidas 0
Respostas
Renato Rubinho
13/01/2015
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
GOSTEI 0
Pedro
13/01/2015
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.
GOSTEI 0
Pedro
13/01/2015
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.
GOSTEI 0