I'm whipping up something for my dad for evony (a game he plays), and i decided to take a crack at learning types while i'm at it.
here's the portion of it that is giving me trouble:
Simba Code:
program farm;
type
TCoord = record
Coordinats: array[0..1] of Integer;
end;
TTown = array[0..8] of TCoord;
var
Towns: array of Boolean;
Coords: array of TTown;
procedure SetVars;
begin
Towns := [False, False, False, False, False, False, False, False, False, False];
SetLength(Coords, 8);
with Coords[0] do
begin
Coords[0] := [0, 0];
Coords[1] := [0, 0];
Coords[2] := [0, 0];
Coords[3] := [0, 0];
Coords[4] := [0, 0];
Coords[5] := [0, 0];
Coords[6] := [0, 0];
Coords[7] := [0, 0];
Coords[8] := [0, 0];
end;
with Coords[1] do
begin
end;
with Coords[2] do
begin
end;
with Coords[3] do
begin
end;
with Coords[4] do
begin
end;
with Coords[5] do
begin
end;
with Coords[6] do
begin
end;
with Coords[7] do
begin
end
with Coords[8] do
begin
end;
with Coords[9] do
begin
end;
end;
begin
end.
And I get this error
Progress Report:
[Error] (19:18): Class type expected at line 18
Compiling failed.
I don't understand