|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.11.2017, 22:47 | #1 |
Новичок
Джуниор
Регистрация: 14.11.2017
Сообщений: 1
|
procedure TForm1.FileOld(const dir: string); не работает - Delphi
procedure TForm1.FileOld(const dir: string);
var f: TSearchRec; nameFile: string; dtfile: Tdate; mas: array [0..100] of string; q : integer; C :TStringList; begin if findFirst(dir + '\*', faAnyFile, f) = 0 then repeat C.Create; nameFile := f.Name; if (nameFile = '.') or (nameFile = '..') then continue; if f.Attr = faDirectory then FileOld(dir + '\' + nameFile); if nameFile = '1.txt' then begin ShowMessage('Файл знайдено'); C.Add(nameFile); end; if nameFile = '2.txt' then begin ShowMessage('Файл знайдено'); C.Add(nameFile); end; if nameFile = '3.txt' then begin ShowMessage('Файл знайдено'); C.Add(nameFile); end; until findNext(f) <> 0; findClose(f); end; end. Може хтось пидказать чого ошибка вылитає пры роботи , проблема выявляэться пры пидключени C :TStringList; |
14.11.2017, 23:26 | #2 |
Форумчанин
Регистрация: 22.10.2017
Сообщений: 113
|
А вы разделом не ошиблись)? Это же Делфи?
|
14.11.2017, 23:49 | #3 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
это бред.
для вызова конструктора нужно написать так: Код:
сделать это нужно один раз. а в конце процедуры нужно очистить память, занятую C только непонятно, зачем он Вам в данном случае вообще нужен. Ведь это локальная переменная и за пределами процедуры она не будет видна. Вы для чего эту переменную пытались использовать? Последний раз редактировалось Serge_Bliznykov; 14.11.2017 в 23:51. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
procedure TForm1.Timer1Timer(Sender: TObject); var h:hwnd; begin //if f1 if getasynckeystate($20)<>0 then begin if FindWin | Kazik | Помощь студентам | 2 | 18.11.2012 20:44 |
procedure TForm1.FormActivate(Sender: TObject); | Vitalik85 | Общие вопросы Delphi | 7 | 19.06.2012 10:59 |
Замена const aArE: array of String; CheckListBox'ом | grafgrial | Общие вопросы Delphi | 13 | 10.11.2010 14:04 |
Конвертирование из const char*(System::String) в LPCWSTR | Eros | Общие вопросы .NET | 1 | 27.05.2010 12:36 |
не работает procedure | korand | Общие вопросы Delphi | 8 | 09.03.2010 21:18 |