mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2026-01-27 00:39:17 +01:00
d0f37eeaf7
* More delphi compatibility added/updated to TListView * Introduced TDebugger.locals * Moved breakpoints dialog to debugger dir * Changed breakpoints dialog to read from resource git-svn-id: trunk@1508 -
28 lines
398 B
ObjectPascal
28 lines
398 B
ObjectPascal
program testcntr;
|
|
{$mode objfpc}{$H+}
|
|
uses
|
|
TestWait,
|
|
SysUtils;
|
|
|
|
var
|
|
m, n, x : Cardinal;
|
|
w: TWait;
|
|
begin
|
|
m :=0;
|
|
x := 0;
|
|
w := TWait.Create(2);
|
|
while x < 3 do
|
|
begin
|
|
repeat
|
|
Write(Format('[%.10d] ', [m]));
|
|
Inc(m);
|
|
for n := 0 to 79 do
|
|
begin
|
|
Write('*');
|
|
end;
|
|
WriteLN;
|
|
until m mod 10 = 0;
|
|
W.Wait(10);
|
|
inc(x);
|
|
end;
|
|
end. |