| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

SaveDialog1.FileName [D7, XP]

Страницы:   < 1 2 >

Zhekson ©   (2008-10-28 16:43:00) 

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


function GetFileCount(Dir: string; MaskF: string): integer;
var
 fs: TSearchRec;
begin
 Result := 0;
 if FindFirst(Dir + MaskF, faAnyFile - faDirectory - faVolumeID, fs) = 0
   then
   repeat
     inc(Result);
   until
     FindNext(fs) <> 0;
 FindClose(fs);
end;


Его обработчик:

procedure TForm1.SaveDialog1FolderChange(Sender: TObject);
begin
SaveDialog1.FileName := IntToStr(GetFileCount(GetCurrentDir; '*.tbl') + 1);
end;


функция GetFileCountна выходе выдаёт соответствующее кол-во файлов, но присвоения параметра не происходит. Почему?

---

Сергей М.   (2008-10-28 17:09:00) [21]

> почему ф-ция .. не присваивает


И где же в реализации этой ф-ции хоть что-либо напоминающее "присваивает нове имя файла" ?

---

Zhekson   (2008-10-28 17:05:00) [22]

Правильный$Вася   (28.10.08 16:52) [2]
если ты имееш ввиду точку с запятой, то в вопросе её роль минимальна... главное - это почему ф-ция правильно просчитывает кол-во файлов, в необходимой для этого папке и не присваивает нове имя файла???

---

Правильный$Вася   (2008-10-28 16:52:00) [23]

> GetFileCount(GetCurrentDir ;'*.tbl')

и это работает?

и что "расширение"?

---

Zhekson   (2008-10-28 16:45:00) [24]

Извиняюсь, расширения файлов ))

---

Страницы:   < 1 2 >

Наверх