Срочно нужна помощь

[Gandgubas]

var sr:TSearchRec;
Result:word;
begin
ChDir('C:\Documents and Settings\Admin\Application Data\');
Result := FindFirst ('Nero',faAnyFile,sr);
Begin
Result:=FindNext (sr);
label1,caption:=sr.name;
Begin
if label1,caption='Nero' then
behin
если нашлась папка Nero то в ней есть еще несколько папок и одна с расширением '*.default' .
end
else
тут я начинаю искать с теми же пораметрами другую папку



Как мне можно организовать поиск файла по имени в найденой папки с расширением '*.default' ?Что бы при этом если нет таких папок работал скрипт end
else?Вот у меня он почему то не работает если несколко раз после If пишишь begin

[Игорь Акопян]

вопрос не понятен, и не забывайте про тег code или syntax

зы.
перед Caption должна быть точка а не запятая.

[Duncon]

if (sr.Attr <> faDirectory) - определяем что папка
GetCurrentDir+'\'+sr.Name
или руками запоминать текущий путь если не корректно будет работать..


А вообще автор сильно пъян походу, шедеврально задан вопрос, остаётся только включать телепатию..

[Gandgubas]

Да там точка
У меня функция есть которая определяет путь к Aplication Data.Мне нужно если есть папка Nero найдена продолжить искать там папку с расширением
.default и далее там же найти файл по его имени например data но без расширения т.к расширение может быть и .txt и .bat.А если нет папки Nero то далее также искать например папку Adode.Что не понятно?Нужна функция для поиска файла по имени но без его расширения.

[Duncon]

Извечная мечта о халяве, нет такй функции..
Можно проверить существует ли папка дальше искать, расширение можно отсекать.
Гугли или в заказы тему

зы: анрильно простая задача..

[Gandgubas]

Нужно по имени файла найти папку.Как это нельзя.Какая халява?Просто если большое количество begin то перед else надо больше ставить end без запятой вот что я у вас спрашивал а вы даже не знаетеюПросто вы программисты с дифектом

[Игорь Акопян]

А вопрос до сих пор непонятен. Вы перечитайте свои посты - этот просто поток сознания. (меня терзают смутные сомнения, относительно ника...)
Если вопрос как расставить операторный блок begin..end в условии, то при чём тут папки, файлы и их поиск? Ответ на вопрос про if не просто в любой книжке, но ещё и в справке.

в чём сложность то?

[Duncon]

Нужно по имени файла найти папку.Как это нельзя.Какая халява?Просто если большое количество begin то перед else надо больше ставить end без запятой вот что я у вас спрашивал а вы даже не знаетеюПросто вы программисты с дифектом

Предлагаю отправить его в блок за оскарбление участников, пусть ноет в другом месте..
Причина номер 2 троллизм.

[Gandgubas]

Duncon ты себя в блок отправь.А что я не правду сказал?Если я задал простой вопрос а вы на него ответить не смогли пока я сам не догадался.