[DeOne]

Код на выбор папки из директории по кнопки.

Это прописано в uses FileCtrl.

Вот сам код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.sButton2Click(Sender: TObject); var  Directory: String;  F: TSearchRec; begin if SelectDirectory('Выбери папку...', '', Directory) then   begin     sEdit2.Text:=Directory+'\';     if length(Form1.sEdit2.text) <> 0 then           begin if FindFirst(Form1.sEdit2.text+'*.jpg', faHidden+ faSysFile, F) = 0 then  begin  Form1.Memo2.Lines.Add(F.Name);  Memo2.Lines.Insert(1, Memo2.Lines[0]);  while FindNext(F) = 0 do Form1.Memo2.Lines.Add(F.Name);  FindClose(F);  end;  end;   end; end;

При компиляции вылетает такое:

[Bargest]

Ну и? Это предупреждения (warning), а не ошибки (error). Предупреждения значат, что "ай-ай-ай, нехорошо". Однако работать будет.
Конкретно это предупреждение можно было перевести переводчиком. Специфично для платформы, т.е. на каких-то версиях Windows в теории может не работать.

[DeOne]

Хмм, спасибо.

А есть тогда другие способы выбора папки ?

[Bargest]

А что значит "выбор папки"? Загадать чтоли?

[DeOne]

Ну директорию )

[Bargest]

Диалог выбора директории чтоли показать?

[DeOne]

Что бы нужно было указывать путь не к файлу, а к папке и все названия файлов грузились в мемо

[Bargest]

Да можно и самому набросать, используя FindFirst и FindNext с атрибутом faDirectory (FindFirstFile и FindNextFile с атрибутом FILE_ATTRIBUTE_DIRECTORY если по дзену). Но проще использовать тот, который нашел.

[DeOne]

Вот, очень просто код

Код:

1 2	if SelectDirectory('Выберите каталог', 'C,D:\', chosenDirectory)   then sEdit2.text:=chosenDirectory +'\';

Но как теперь загрузить имена файлов? Буду благодарен, если дашь готовый код

[Bargest]

Через те же FindFirst и FindNext. Их описание - гугл, а применение - яндекс.
Не ленись искать. Общий смысл в твоем же первом посте есть.

[DeOne]

Спасибо, но жаль, что без кода

[Bargest]

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

Спасибо, но жаль, что без кода

От того, что я напишу код, ты ничему не научишься.
Если же САМ найдешь инфу по ключевым словам и разберешься с ней - сможешь применять.

[DeOne]

Так получается мы FileCtrl все равно используем.

[Bargest]

http://docwiki.embarcadero.com/Libra...tils.FindFirst
FindNext там же, в SysUtils.
А дзенские FindFirstFile/FindNextFile вообще из WinAPI, т.е. стандартного интерфейса Windows.
Так что FileCtrl используется только в SelectDirectory. Как от него уйти - я уже написал, можно сделать самому перебор папок. Однако не знаю, чем он тебе мешает.

[DeOne]

Надо мне, что бы не было предупрежднений и ошибок