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

Timestamp:

Jun 12, 2007, 7:35:56 PM (17 years ago)

Author:

alloc

Message:

 

File:

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

oup/current/FileClasses/TXAN.pas

@@ -10 +10 @@
     protected
       procedure InitDatLinks; override;
+      procedure InitRawList; override;
+    public
       procedure InitDataFields; override;
-      procedure InitRawList; override;
   end;
 
@@ -22 +23 @@
 var
   tempi: Integer;
-  temps: String;
-  templist: TStringList;
 begin
   inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
-  templist := TStringList.Create;
   with FDataFields do
   begin
@@ -49 +47 @@
     AddField(TUnused, $1A, 'Unused', '', @tempi);
 
+    tempi := 2;
     with AddField(TArray, $1C, 'AnimTextures array', '', @tempi) do
     begin
@@ -54 +53 @@
     end;
   end;
-  templist.Free;
 end;