Список ListBox из файла и открытие файлов в браузере

[oduvan4ik]

Как можно сделать список в ListBox из текстового файла, где прописаны необходимые названия и чтобы при клике на них например в браузере (который Delphi-йский) открывались необходимые файлы ?

[Terran]

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

Procedure TForm1.Button1Click(Sender: TObject);
Begin
If OpenDialog1.Execute Then
Begin
ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
End;
End;
Procedure TForm1.ListBox1Click(Sender: TObject);
Begin
WebBrowser1.Navigate(ListBox1.Items[ListBox1.ItemIndex]);
End;

[5naip]

добавте на форму listbox, а в папку с программой текстовый файл list.txt, в котором нуные строки...
вставьте этот код:

procedure TForm1.FormCreate(Sender: TObject);
var
  filee:textfile;
  str:string;
begin
assignfile(filee,'list.txt');
reset(filee);
while not eof(filee) do
  begin
    readln(filee,str);
    ListBox1.Items.Add(str);
  end;

end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ShowMessage(ListBox1.Items.ValueFromIndex[ListBox1.ItemIndex]);
end;

вместо месседжа делайте то что вам надо с файлами...
------
малек припозднился

[oduvan4ik]

ага все работает =) спасибо !!!