Сообщений в теме: 4

[MishqaZZ]

procedure Delay(ms : longint);
var TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
Application.ProcessMessages;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i,s:integer;
begin
s:=100;
for i:=1 to 100 do begin
s:=s-1;
edit1.Text:=inttostr(s);
Delay(1000);
end;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edit1.Text:='100';
end;

[Artemka]

Зачем это тут? Решение шольных задачек теперь сюда будем выкладывать?

Сообщение отредактировал Artemka: 29 Август 2014 - 21:37

[Alex_MB]

Подача неправильная. Надо было написать:  "уникальный таймер инфобизнесмена. Сам Гандапас по совету ребят из бизнес молодости пользуется им для замера времени перерывов во время своих тренингов."

 

И хайд тридцаточку

Сообщение отредактировал Alex_MB: 29 Август 2014 - 21:58

[MishqaZZ]

Зачем это тут? Решение шольных задачек теперь сюда будем выкладывать?

Нуу,незнал что сдесь это школьный язык.

Буду знать,спасибо.

[danila]

Да нормально все. Не школьный это язык. Ты просто ложи такую инфу не в инфопродукты а другую тему.

Тогда и читать ее будут те кому она актуальна.