Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];

Вниз

Передача параметра в поток   Найти похожие ветки 

← →
vowa-antilamer   (2008-03-07 00:38) [0]

В общем есть процедура поиска файлов  find (root:string;itsroot:boolean);
надо запустить процедуру и дать ей параметры потом выполнить в отдельном потоке.
Какие предложения?

---

← →
Slym ©   (2008-03-07 04:51) [1]

type
 TFindThread = class(TThread)
 private
   Froot:string;
   procedure find (root:string;itsroot:boolean);
 protected
   procedure Execute; override;
 public
   constructor Create(CreateSuspended: Boolean;const root:string);
 end;

constructor TFindThread.Create(CreateSuspended: Boolean;
 const root: string);
begin
 Froot:=root;
 inherited Create(CreateSuspended);
end;

procedure TFindThread.Execute;
begin
 find(Froot,true);
end;

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.04.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c