blob: 79e4b4c7fbe02f4dd7880f939c29ccfd38cfa5b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
{ Source provided for Free Pascal Bug Report 3165 }
{ Submitted by "" on 2004-06-13 }
{ e-mail: plugwash@p10link.net }
program testwith;
{$ifdef fpc}{$mode objfpc}{$endif}
uses
SysUtils;
type
tconnect4game=class
board : array[1..7,0..5] of byte;
end;
var
row ,col: byte;
g : tconnect4game;
begin
{g := tconnect4game.create;}
with {g} tconnect4game.create do begin
writeln(board[1,5]);
row :=1;
col :=5;
writeln(board[col,row]);
for row := 5 downto 0 do begin
for col := 1 to 7 do begin
writeln(' :in inner loop row='+inttostr(row)+' col='+inttostr(col)+' board[col,row]='+inttostr(board[col,row]));
end;
end;
end;
end.
|
