Changeset 233 for oup/current/FileClasses/TXAN.pas

Timestamp:

Jun 29, 2007, 2:38:24 PM (17 years ago)

Author:

alloc

Message:

 

File:

• oup/current/FileClasses/TXAN.pas (modified) (2 diffs)

oup/current/FileClasses/TXAN.pas

@@ -20 +20 @@
 var
   tempi: Integer;
+  arrargs: TArrayArgs;
 begin
   inherited;
@@ -44 +45 @@
     AddField(TUnused, $1A, 'Unused', '', @tempi);
 
-    tempi := 2;
-    with AddField(TArray, $1C, 'AnimTextures array', '', @tempi) do
+    arrargs.CounterSize := 2;
+    arrargs.BlockLength := 4;
+    with AddField(TArray, $1C, 'AnimTextures array', '', @arrargs) do
     begin
       AddField(TLinkByID, $00, 'Texture', '', nil);
     end;
   end;
+  FFileStream.Free;
+  FFileStream := nil;
 end;
 
 
 end.
-