problem mit Klassen-Instanzen

[HannsW]

Einen schönen Sonntag,
ich habe folgenden Code

Delphi-Quellcode:

       // Stats
       tableStats := TdBaseClass.create;
       tableStats.Filepath := DataPath;
        if f_DruckTyp = 'Angebot' then begin
          tableStats.FileName := 'ANGSTAT.dbf';
          tableStats.NtxFileName := 'ANGSTAT.ntx';
       end;
       tableStats.open;



       // die Positionen
       tableAufPos := TdBaseClass.Create;
       tableAufPos.Filepath := DataPath;
       if f_DruckTyp = 'Angebot' then begin
          tableAufPos.FileName := 'ANGPOS.dbf';
          tableAufPos.NtxFileName := 'ANGPOS.NTX'
       end;
       tableAufPos.open;

Die TdBaseClass hat ein

Delphi-Quellcode:

 Private 
          NtxBuf: array[1..1024] of Char;
          // usw.

Wenn ich in tableStats die erste 1024 Byte lese, erhalte ich z.B. 18 Pages zu je 1024 genannt
Schau ich mir die erste 1024 von tableAufpos im HEX-Editor an, so lese ich da 56 pages a 1024.
tableAufPos zeigt mir im Debugger ebenfalls 18 Seiten an

Die NTX-Files werden wie folgt geöffnet:

Delphi-Quellcode:

function TdBaseClass.ntxOpen : boolean;
var
  nTemp :Integer;
  nTag   : integer;
  cTemp: String;

begin
     result := false;
     if ntxFileName = '' then  begin
        exit;
     end;

     cTemp := f_Filepath + ntxFileName;
     AssignFile(f_theNtxFile, cTemp);   { Datei ausgewählt }
     Reset(f_theNtxFile);
     ntxisOpen := true;
     ntxFileSize := FileSize(f_theNtxFile);
     // die erste Intger Lesen
     seek ( f_theNtxFile,0);
     BlockRead(f_theNtxFile, NtxBuf, f_RecordLen,f_bytesReturned);

     // notwendige Werte einlesen...
end;

Das Smiley, welches wohl am Besten zu mir derzeit paßt ist dieses
Danke für evtl Hilfe
Hanns