Проблема с FindFirst, как указать меняющийся путь?

[_SacreD_]

Вообщем такая проблема, нужно в FindFirst поместить путь который постоянно меняется, использую эту функцию для нахождения к примеру mp3 файлов. У меня way - это путь, в нем к примеру C://Program Files/tratata/*.* ну или C://*.* , как мне сделать так что бы путь менялся, когда пишу в ручную вместо "??????????" - "С:/" тогда все норм... пожалуйста помогите решить эту проблему... или хотябы посоветуйте.

FindRes:=FindFirst('???????????/*.mp3',faAnyFile,a);
if FindRes=0 then
...

постарался попроще описать свою проблему. Заранее спасибо

[Domovoy]

Ну если у тебя в way есть путь то делай так

var
  F:TSearchRec;
  way:string;
begin
  way:='C:\*.*';//на деле ты можешь брать откуда угодно эту строку
  if FindFirst(copy(way,1,length(way)-1)+'mp3',faAnyFile,F)=0 then
    repeat
      showmessage(f.Name);
    until FindNext(F)<>0;

[_SacreD_]

Попробую, а что означает вот этот кусок кода :

copy(way,1,length(way)-1)

?

[mihali4]

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

Попробую, а что означает вот этот кусок кода :

copy(way,1,length(way)-1)

?

Это - ненужные изыски.
Пишем просто:
mydir:='c:\MyDirectory\SubDir1\'; // к примеру
FindRes:=FindFirst(mydir+'*.mp3',fa AnyFile,a);
Или, если так больше нравится:
mydir:='c:\MyDirectory\SubDir1\*.mp 3'; // к примеру
FindRes:=FindFirst(mydir,faAnyFile, a);

[Domovoy]

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

Это - ненужные изыски.
Пишем просто:
mydir:='c:\MyDirectory\SubDir1\'; // к примеру
FindRes:=FindFirst(mydir+'*.mp3',fa AnyFile,a);

Так если у него директория задана так С:\*.* тогда что?

[mihali4]

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

Так если у него директория задана так С:\*.* тогда что?

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

[Domovoy]

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

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

Без комментариев ....

[merax]

К чему спорить! Вот функция для поиска файлов, я ё постоянно юзаю, классика так сказать:

function FindFiles (ListBox : TListBox; DirPath : string) : boolean;
var
  Search      : TSearchRec;
  FindResult  : integer;
begin
  Result := false;
  ListBox.Items.Clear;
  FindResult := FindFirst(DirPath + '\*.*', faVolumeID, Search);
while (FindResult = 0) do
begin
  ListBox.Items.Add (Search.Name);
  FindResult := FindNext(Search);
end;
  FindClose(Search);
  Result := true;
end;

[Stilet]

путь который постоянно меняется

Кто его меняет?
Собсно Меракс сказал точно...

[_SacreD_]

Возможно я неправильно поставил задачу... У меня есть файловый менеджер, и там можно рыскать по папкам как вы знаете, в коммандной строке постоянно имеется путь, переменная которая содержит путь "way" у меня. Дак вот в этой переменной путь. В одном из постов предложили писать " way + '*.mp3' " ... Дак если у меня путь меняется... Ещё запарка в том что в конце пути у меня *.* стоит, мне надо поставить 2 по курсу инфы, но я забыл как убрать 3 симфола от туда) не помню просто, но это не проблема впринцепе...

Я пробовал писать FindFirst(way+'*.mp3', .... ), задавая условие следующее:
if FindFirst(way+'*.mp3', .... )=0
типо тогда image у элемента к примеру как у винампа, но нифига, может правда я что то не так написал... Большое спасибо всем, кто пытается помочь в решении этой проблемы!!! и ещё раз заранее СПАСИБО!