Changeset 322 for trunk/Map.pas

Timestamp:

Jun 25, 2024, 1:15:02 AM (3 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Map.pas (modified) (4 diffs)

trunk/Map.pas

@@ -262 +262 @@
   I := 0;
   while (I < Count) do begin
-    if ((TCellLink(Items[I]).Cells[0] = Cell1) and (TCellLink(Items[I]).Cells[1] = Cell2)) or
-    ((TCellLink(Items[I]).Cells[0] = Cell2) and (TCellLink(Items[I]).Cells[1] = Cell1)) then
+    if ((Items[I].Cells[0] = Cell1) and (Items[I].Cells[1] = Cell2)) or
+    ((Items[I].Cells[0] = Cell2) and (Items[I].Cells[1] = Cell1)) then
       Break;
     Inc(I);
   end;
-  if I < Count then Result := TCellLink(Items[I])
+  if I < Count then Result := Items[I]
     else Result := nil;
 end;
@@ -308 +308 @@
 begin
   for I := 0 to Count - 1 do
-  with TCellLink(Items[I]) do begin
+  with Items[I] do begin
     NewNode2 := Node.OwnerDocument.CreateElement('CellLink');
     Node.AppendChild(NewNode2);
@@ -545 +545 @@
 procedure TMap.LoadFromFile(FileName: string);
 begin
-
 end;
 
 procedure TMap.SaveToFile(FileName: string);
 begin
-
 end;
 
@@ -851 +849 @@
   if Areas.Count > 1 then
   for I := 0 to Areas.Count - 1 do
-  with TMapArea(Areas[I]) do begin
+  with Areas[I] do begin
     GetBorderCells(BorderList);
     if BorderList.Count > 0 then