Делфи.Открытие файлов через дерево,наставьте на путь истинный;)

[valiza]

доброго всем дня!
такой вот вопрос...у меня есть прога в которой уже заранее прописан некий текстовый файл.А мне необходимо ,что б файл можно было искать и открывать самому из дерева(ну типа как проводник).Подскажите пожалуйста с чего начать.

[Stilet]

ShellTreeView тебе в помошь. Это такой мини-эксплорер для Делфи, достаточно удобен для первого раза. Его свойство Path даст путь и файл выбранный в дереве.

[valiza]

Оо..я закинул его на форм...но та только папки отображаются,как можно сделать что б и файлы видны были..меня интересуют только *.txt

[valiza]

procedure TForm1.Button1Click(Sender: TObject);
var
  i,k: integer;
 s: string;
begin


  k:=0;

  for i := 0 to Memo1.Lines.Count - 1 do
  Begin

    s := Memo1.lines[i];
    while Pos(Edit1.Text,s)<>0 do

    Begin
    k:=k+1;
    Delete(s,Pos(Edit1.Text,s),Length(edit1.Text));
    end;
    end;




  Label2.Caption := IntToStr(k);

end;


     procedure Tform1.Button2Click(Sender: TObject);
   begin
   Memo1.Lines.LoadFromFile('gh.txt');

   end;


procedure TForm1.Button3Click(Sender: TObject);
begin
 Form1.Close;
end;

end.#

впрочем такой вот код...
чесно сказать...не совсем понимаю как дерево к коду присунуть

[uberchel]

Надите в политре компонентов вкладку Dialogs и поставте на форму OpenDialog1

procedure Tform1.Button2Click(Sender: TObject);
begin
OpenDialog1.Filter:= 'TXT File|*.txt';
if OpenDialog1.Execute then
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

[Stilet]

как можно сделать что б и файлы видны были

Включи для свойства Objecttypes значение otNonFolders

[Lemo]

уже узнал!