Текущий архив: 2008.04.06;
Скачать: CL | DM;
Вниз
Передача параметра в поток Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.006 c
