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