Как добавить нужную строку в memo

[Volkogriz]

Доброе время суток!!!
Проблема такого плана,
В ListBox загружается список найденных файлов в определённой папке!
Как сделать так чтобы при клике на имя определенного файла В ListBox-се, в memo Выводился путь + имя файла!
Заранее благодарю!
С уважением Volkogriz

[Terran]

Сообщение от Volkogriz

Доброе время суток!!!
Проблема такого плана,
В ListBox загружается список найденных файлов в определённой папке!
Как сделать так чтобы при клике на имя определенного файла В ListBox-се, в memo Выводился путь + имя файла!
Заранее благодарю!
С уважением Volkogriz

Можно сделать так:

Procedure TForm1.ListBox1Click(Sender: TObject);
Begin
Memo1.Lines.Add(PChar(ListBox1.Items[ListBox1.ItemIndex]));
End;

Только если в ListBox'е не указывается путь к файлу, то вам надо будет его добавить в строчку.

[Volkogriz]

Вот код програмы:

procedure ListFileDir(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         FileList.Add(SR.Name);
       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;

Ну и выполнение:

procedure TForm1.Button5Click(Sender: TObject);
begin
ListFileDir(extractfilepath(Application.ExeName), Form2.ListBox1.Items);
Form2.show;
end;

А вот дальше вехать не магу:

procedure TForm2.ListBox1Click(Sender: TObject);
begin
Memo1.Lines.Add('Path= "'+???+'"');
end;

[Terran]

Вам надо сделать так:

procedure ListFileDir(Path: string; FileList: TStrings);
 var
   SR: TSearchRec;
 begin
   if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
   begin
     repeat
       if (SR.Attr <> faDirectory) then
       begin
         FileList.Add(SR.Name);

       end;
     until FindNext(SR) <> 0;
     FindClose(SR);
   end;
 end;


Procedure TForm1.ListBox1Click(Sender: TObject);
Begin
Memo1.Lines.Add('Path= '+extractfilepath(Application.ExeName)+PChar(ListBox1.Items[ListBox1.ItemIndex]));
End;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListFileDir(extractfilepath(Application.ExeName), Form1.ListBox1.Items);
end;

[Volkogriz]

Огромное Спасибо!

[Terran]

Сообщение от Volkogriz

Огромное Спасибо!

Не за что.