В чем ошибка?

@PAVEL_2 · Регистрация: 25.10.2019

Студворк — интернет-сервис помощи студентам

не пойму в чем ошибка, вроде все делал по инструкции.

@mr-Crocodile · 25.03.2020, 09:58

Сообщение от PAVEL_2

https://codernet.ru/books/delphi/pra...rammirovaniyu/
Страница 233

теперь понятно.
Там описано всё криво. FindFirst и FindClose не нужно описывать в классе TSearchThread

Добавлено через 10 минут
а ты вообще читал, что написано в книге?
И делал так же?
вот, например, что касается создания класса TSearchThread

открываем страницу 237 (и читаем включая 238)

При нажатии кнопки 'Поиск' должен создаваться поток, осу-
ществляющий поиск файлов. Для создания потока создадим но-
вый класс, предком которого является TThread. Для этого выпол-
ните команду File/New... и в открывшемся диалоговом окне New
Items дважды щелкните на иконке ThreadObject (рис. 10.3.3).
Впоявившемся диалоговом окне введите имя класса, напри-
мер TSearchThread, и нажмите кнопку ОК.
Создание многопоточных приложений
Рис. 10.3.3
Delphi автоматически создаст новый модуль, содержащий
заготовку описания потомка класса TThread. Сохраните этот
модуль под именем SearchThread.pas.
Итак, экземпляр класса TSearchThread должен выполнять
поиск файлов с заданным именем в заданной папке, поэтому в
разделе Private опишите переменные

ты почему это не сделал? Где у тебя "модуль под именем SearchThread.pas" ?
нет? Ну так а что ты тогда хочешь?!

ну и повторю ещё раз - книжка написана очень сумбурно. Местами подробно, а местами - сумбурно.
но это не повод игнорировать то, что в ней написано и делать по своему.

@PAVEL_2 · 25.03.2020, 10:00 **[ТС]**

Я же его сделал

@mr-Crocodile · 25.03.2020, 10:21

а ещё в книге присутствую и явные опечатки (см. код на стр. 242-243):

Delphi
1
2
3
4
5
6
7
procedure TMainF.ThreadDone(sender: TObject) ;
begin
NameEdt.Text :='';
FindBtn.Enabled :=False;
FindBtn.Enabled :=False;
HThread.Free;
end;

должно быть

Delphi
1
2
3
4
5
6
7
procedure TMainF.ThreadDone(sender: TObject);
begin
  NameEdt.Text := '';
  StopBtn.Enabled := False;
  FindBtn.Enabled := True;
  HThread.Free;
end;

ну и в логике вызова потока, по моему, что-то неверно сделано. у меня сейчас всё работает, но поток не останавливается.

@mr-Crocodile · 25.03.2020, 10:42

держи рабочий проект.

ProjectDir_OS.zip

там остались проблемы с поиском файлов/директорий (которые изначально криво в книжке написаны), но я это исправлять не стал. Пусть это будет на совести автором учебника.

@PAVEL_2 · 25.03.2020, 10:45 **[ТС]**

Большое спасибо , за помощь)))!!!

Новые блоги и статьи Все статьи Все блоги /
Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .

@PAVEL_2 1 / 0 / 0 Регистрация: 25.10.2019 Сообщений: 69
	25.03.2020, 10:00 [ТС]
	Я же его сделал 0

@mr-Crocodile 3054 / 1673 / 657 Регистрация: 19.03.2019 Сообщений: 5,380
	25.03.2020, 10:42
	Сообщение было отмечено PAVEL_2 как решение Решение держи рабочий проект. ProjectDir_OS.zip там остались проблемы с поиском файлов/директорий (которые изначально криво в книжке написаны), но я это исправлять не стал. Пусть это будет на совести автором учебника. 2

@PAVEL_2 1 / 0 / 0 Регистрация: 25.10.2019 Сообщений: 69
	25.03.2020, 10:45 [ТС]
	Большое спасибо , за помощь)))!!! 0

В чем ошибка?

Решение