Changeset 213 for oup/current/FileClasses

Timestamp:

Jun 12, 2007, 7:00:48 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current/FileClasses

Files:

• TXAN.pas (modified) (1 diff)
• TXMP.pas (modified) (1 diff)
• _DataTypes.pas (modified) (1 diff)
• _FileTypes.pas (modified) (4 diffs)
• _MetaManager.pas (modified) (3 diffs)

oup/current/FileClasses/TXAN.pas

@@ -25 +25 @@
   templist: TStringList;
 begin
+  inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
   templist := TStringList.Create;

oup/current/FileClasses/TXMP.pas

@@ -27 +27 @@
   templist: TStringList;
 begin
+  inherited;
   FDataFields := TBlock.Create(Self, nil, 0, 'Base', '', nil);
   templist := TStringList.Create;

oup/current/FileClasses/_DataTypes.pas

@@ -319 +319 @@
     if i < Length(FDataFields) then
     begin
-      ShowMessage('Field exists');
+      ShowMessage('Field already exists');
       Exit;
     end;

oup/current/FileClasses/_FileTypes.pas

@@ -25 +25 @@
 
       procedure InitDatLinks; virtual; abstract;
-      procedure InitDataFields; virtual; abstract;
       procedure InitRawList; virtual; abstract;
 
@@ -39 +38 @@
       procedure Free;
 
+      procedure InitDataFields; virtual;
+
       property FileStream: TMemoryStream read FFileStream;
       property FileID: Integer read FFileID;
@@ -97 +98 @@
 
   InitDatLinks();
-  InitDataFields();
   InitRawList();
+  FDataFields := nil;
 
   if not (Self is TFile_Empty) then
@@ -222 +223 @@
 
 
+procedure TFile.InitDataFields;
+begin
+  if Assigned(FDataFields) then
+    Exit;
+end;
+
 function GetDatLinkValue(stream: TStream; offset: Integer): Integer;
 begin

oup/current/FileClasses/_MetaManager.pas

@@ -29 +29 @@
       constructor Create(ConnectionID: Integer);
       procedure InitFile(id: Integer);
+      procedure InitFileFields(id: Integer);
 
       property FileCount: Integer read GetFileCount;
@@ -59 +60 @@
 procedure TMetaManager.InitFile(id: Integer);
 var
-//  i: Integer;
   typei: Integer;
   finfo: TFileInfo;
@@ -83 +83 @@
         FFiles[id] := TFile_Empty.Create(FConnectionID, id);
       Exit;
+    end;
+  end;
+end;
+
+procedure TMetaManager.InitFileFields(id: Integer);
+begin
+  if id < ConManager.Connection[FConnectionID].GetFileCount then
+  begin
+    if not Assigned(FFiles[id]) then
+    begin
+      InitFile(id);
+      if not (FFiles[id] is TFile_Empty) then
+        FFiles[id].InitDataFields;
     end;
   end;