Spiral matrix: Difference between revisions
m
→{{header|Delphi}}
No edit summary |
|||
Line 1,607:
{{works with|Delphi|6.0}}
{{libheader|SysUtils,StdCtrls, Windows}}
This code actually creates
<syntaxhighlight lang="Delphi">
Line 1,673:
R:=Rect(0,0,SizeX-1,SizeY-1);
Inx:=0;
{draw and deflate
while (R.Left<=R.Right) and (R.Top<=R.Bottom) do
begin
Line 1,732:
</pre>
=={{header|E}}==
|