mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-09 06:14:14 +02:00
baa8cff9f6
modified by the ide
+ Added some parsing to evaluate complex expressions
not understood by the debugger
git-svn-id: trunk@3068 -
30 lines
426 B
ObjectPascal
30 lines
426 B
ObjectPascal
program testcntr;
|
|
{$mode objfpc}{$H+}
|
|
uses
|
|
TestWait,
|
|
SysUtils;
|
|
|
|
var
|
|
m, n, x : Cardinal;
|
|
w: TWait;
|
|
S: String;
|
|
begin
|
|
m :=0;
|
|
x := 0;
|
|
w := TWait.Create(2);
|
|
while x < 3 do
|
|
begin
|
|
repeat
|
|
S := Format('[%.10d] ', [m]);
|
|
Write(S);
|
|
Inc(m);
|
|
for n := 0 to 79 do
|
|
begin
|
|
Write('*');
|
|
end;
|
|
WriteLN;
|
|
until m mod 10 = 0;
|
|
W.Wait(10);
|
|
inc(x);
|
|
end;
|
|
end. |