|
Вопрос # 6 078/ вопрос открыт / |
|
Приветствую сэров, пэров и дам(если есть таковые),
и сперва наперво, ВСЕХ С ВЕЛИКИМ ПРАЗДНИКОМ ПАСХИ, Христос ВОСКРЕСЕ!!!
В целом вопрос, возможно ли реализовать процедуру поиска (листинг http://pastebin.com/sES09CJS)
реализовать без модулей SysUtils и Classes???
НА всякий случай кому лень по линкам переходить, дублирую листинг функции.
Из этого всего нужно как то найти альтернативу sea: TSearchRec; из SysUtils, и list:Tstringlist; из модуля Classes. Помогите пожалуйста, как можно сделать???
Приложение: Переключить в обычный режим- procedure ffind(cat: string);
- var
- sea: TSearchRec;
- res: integer;
- list:Tstringlist;
- begin
- list := Tstringlist.Create;
-
-
- While res = 0 do
- begin
- if (sea.Attr = faDirectory or faAnyFile) and ((sea.Name = '.') or (sea.Name = '..'))
-
- begin
- res := findNext(sea);
-
- end;
-
- begin
-
-
-
- end;
-
-
- end;
-
- end;
 |
Вопрос задал: winner13 (статус: 1-ый класс)
Вопрос отправлен: 15 апреля 2012, 14:49
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 16 апреля 2012, 15:52; участников в обсуждении: 3.
|
DNK (статус: Студент), 15 апреля 2012, 15:01 [#1]:
Открывай модули и переноси нужный код в программу.
"Digital Networked Knight"
|
|
bugmenot (статус: 3-ий класс), 15 апреля 2012, 19:47 [#2]:
Дубликат №6076?
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
|
winner13 (статус: 1-ый класс), 15 апреля 2012, 23:31 [#3]:
Нет не дубликат, там спрашивал как полностью все фалы выводить в листинг, а тут думаю как бы вес уменьшить.
Открывай модули и переноси нужный код в программу.\\\\\\\\\\\Если бы я знал что вылавливается и вставлять, давно бы уже сделал. =(
Не решимых проблем нет, есть неприятные для нас решения.
|
|
|
DNK (статус: Студент), 16 апреля 2012, 15:52 [#4]:
Убери сисутил из всех юзесов и компилятор тебе сразу покажет, что надо переносить. Где начинается и заканчивается процедура/тип/класс/и пр. надеюсь тебя учить не надо.
"Digital Networked Knight"
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
