Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 6 078

/ вопрос открыт /

Приветствую сэров, пэров и дам(если есть таковые),
и сперва наперво, ВСЕХ С ВЕЛИКИМ ПРАЗДНИКОМ ПАСХИ, Христос ВОСКРЕСЕ!!!
В целом вопрос, возможно ли реализовать процедуру поиска (листинг http://pastebin.com/sES09CJS)
реализовать без модулей SysUtils и Classes???

НА всякий случай кому лень по линкам переходить, дублирую листинг функции.

Из этого всего нужно как то найти альтернативу sea: TSearchRec; из SysUtils, и list:Tstringlist; из модуля Classes. Помогите пожалуйста, как можно сделать???

Приложение:
  1. procedure ffind(cat: string);
  2. var
  3. sea: TSearchRec;
  4. res: integer;
  5. list:Tstringlist;
  6. begin
  7. list := Tstringlist.Create;
  8.  
  9.  
  10. While res = 0 do
  11. begin
  12. if (sea.Attr = faDirectory or faAnyFile) and ((sea.Name = '.') or (sea.Name = '..'))
  13.  
  14. begin
  15. res := findNext(sea);
  16.  
  17. end;
  18.  
  19. begin
  20.  
  21.  
  22.  
  23. end;
  24.  
  25.  
  26. end;
  27.  
  28. end;


winner13 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: winner13 (статус: 1-ый класс)
Вопрос отправлен: 15 апреля 2012, 14:49
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 16 апреля 2012, 15:52; участников в обсуждении: 3.
DNK

DNK (статус: Студент), 15 апреля 2012, 15:01 [#1]:

Открывай модули и переноси нужный код в программу.
"Digital Networked Knight"
bugmenot

bugmenot (статус: 3-ий класс), 15 апреля 2012, 19:47 [#2]:

Дубликат №6076?
виконання програми розпочинається з того самого мiсця, де призупинилося.

winner13

winner13 (статус: 1-ый класс), 15 апреля 2012, 23:31 [#3]:

Нет не дубликат, там спрашивал как полностью все фалы выводить в листинг, а тут думаю как бы вес уменьшить.

Открывай модули и переноси нужный код в программу.\\\\\\\\\\\Если бы я знал что вылавливается и вставлять, давно бы уже сделал. =(
Не решимых проблем нет, есть неприятные для нас решения.
DNK

DNK (статус: Студент), 16 апреля 2012, 15:52 [#4]:

Убери сисутил из всех юзесов и компилятор тебе сразу покажет, что надо переносить. Где начинается и заканчивается процедура/тип/класс/и пр. надеюсь тебя учить не надо.
"Digital Networked Knight"

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 25 мая 2020, 23:06
Выполнено за 0.02 сек.
Рейтинг@Mail.ru