Ich hab den Quelltext jetzt gerade mal überflogen und mir ist da was aufgefallen:
Delphi-Quellcode:
procedure TMemMap.ChangeSize(NewRows, NewCols : Word);
begin
begin
for Row := 0 to NewRows - 1 do
begin
for Col := 0 to NewCols - 1 do // <-- hier gehst du bis NewCols - 1
end
end;
end;
und hier
Delphi-Quellcode:
procedure TMemMap.AddRow(PrevRow : Word);
begin
for Row := 0 to PrevRow - 1 do
for Col := 0 to Cols do // <-- hier gehst du bis Cols und nicht Cols-1
end;
Ich hab jetzt nicht genau genug hingeschaut, jedoch das ist schon auffällig.