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

Вниз

Thread - To ALL HELP!!   Найти похожие ветки 

← →
Eraser   (2002-01-21 13:00) [0]

Пишу следующий код:
var c:integer;

procedure TMicro3Thread.UpdateCaption;
begin
Form1.Caption := inttostr(c);
end;

procedure TMicro3Thread.Execute;
begin
Rab;
end;

procedure Rab;
begin
for i:=1 to 10000 do begin
inc(с);
Synchronize(UpdateCaption);
end;
end;

в Caption выводится только 1-е значение с и все хотя цикл продолжается

---

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

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

Наверх

Память: 0.43 MB
Время: 0.005 c