--- oup/current/FileClasses/_EmptyFile.pas 2007/06/12 17:35:56 214 +++ oup/current/FileClasses/_EmptyFile.pas 2007/06/12 20:31:54 215 @@ -7,9 +7,6 @@ uses type TFile_Empty = class(TFile) - protected - procedure InitDatLinks; override; - procedure InitRawList; override; public procedure InitDataFields; override; end; @@ -26,16 +23,5 @@ begin end; -procedure TFile_Empty.InitDatLinks; -begin - SetLength(FDatLinks, 0); -end; - - -procedure TFile_Empty.InitRawList; -begin - SetLength(FRawParts, 0); -end; - end.