Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
ВнизThread - To ALL HELP!! Найти похожие ветки
← →
panov (2002-01-21 16:06) [6]TT = class(TThread)
c: Integer;
protected
procedure Execute;override;
public
procedure DoUpdate;
end;
implementation
uses
ufMainFormCBFiscal;
procedure TT.DoUpdate;
begin
fMainFormCBFiscal.Label1.Caption := IntToStr(c);
end;
procedure TT.Execute;
var
cc: Integer;
begin
for cc := 0 to 10000 do
begin
c := cc;
Synchronize(DoUpdate);
end;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c