ajuda para listar arquivos de um diretorio no delphi

[rodrigosil]

olá pessoal, preciso da seguinte ajuda.

estou tentado gravar imagens em um campo blob no banco(isso não é problema), mas essas imagens estão num diretorio "x" e o nome de cada imagem serve de paramentro para o insert no banco, o que eu preciso é fazer um loop neste diretório para inserir dinamicamente no banco (ou seja tem que testar uma por uma e para inserir, acho que teria que listar todos as imagens e dar um next a cada inserção)

não estou conseguindo fazer isso, até já consegui listar as imagens em um filelistbox da paleta win3.1 mas não consigo trabalhar com as linha deste filelist, selecionar uma e pular para a outra...e passar como parametro.

se alguém tiver uam ideia por favor posta ai

valeu pessoal

[Jhonas]

não estou conseguindo fazer isso, até já consegui listar as imagens em um filelistbox da paleta win3.1 mas não consigo trabalhar com as linha deste filelist, selecionar uma e pular para a outra...e passar como parametro.

Tente dessa maneira

var
  Form1: TForm1;
  indice : integer = -1;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   indice := indice + 1;
   Label1.Caption := FileListBox1.Items.Strings[indice];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   indice := indice - 1;

   if indice < 0 then
      indice := 0;

   if indice >= 0 then
      Label1.Caption := FileListBox1.Items.Strings[indice];
end;

OBS: Voce pode ver que clicando nos botões, voce pode avançar ou retroceder nas linha deste filelist

assim como o Label1 esta recebendo os valores dos indices, voce pode passá-lo como parametro

abraço

[rodrigosil]

não estou conseguindo fazer isso, até já consegui listar as imagens em um filelistbox da paleta win3.1 mas não consigo trabalhar com as linha deste filelist, selecionar uma e pular para a outra...e passar como parametro.

Tente dessa maneira

var
  Form1: TForm1;
  indice : integer = -1;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
   indice := indice + 1;
   Label1.Caption := FileListBox1.Items.Strings[indice];
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   indice := indice - 1;

   if indice < 0 then
      indice := 0;

   if indice >= 0 then
      Label1.Caption := FileListBox1.Items.Strings[indice];
end;

OBS: Voce pode ver que clicando nos botões, voce pode avançar ou retroceder nas linha deste filelist

assim como o Label1 esta recebendo os valores dos indices, voce pode passá-lo como parametro

abraço

beleza! vou tentar desta forma, deve resolver

obrigado!