TDBF, Erstellen von DBase III+ Dateien

[Fritzew]

Kannst Du mal bitte mit dBase III Plus eine Datei mit gleicher oder ähnlicher Struktur erzeugen und hier anhängen?

[waldforest]

Hallo,
anbei die beiden Dateien.

Unterschied liegt im Byt2, wenn ich dies auf z.B. 10 ändere erkennt dBase die Datei.
Wobei dieses ja Teil des Datums der letzten Änderung der Datei ist.

[Fritzew]

Tja ich habe hier kein dbase III mehr

aber ändere in dbf_dbffile.pas

Delphi-Quellcode:

procedure TDbfFile.WriteHeader;
var
  SystemTime: TSystemTime;
  lDataHdr: PDbfHdr;
begin
  if (HeaderSize=0) then
    exit;

  //FillHeader(0);
  lDataHdr := PDbfHdr(Header);
  GetLocalTime(SystemTime{%H-});
//  lDataHdr^.Year := SystemTime.wYear - 1900; // replace
lDataHdr^.Year := SystemTime.wYear - 2000; // with these
  lDataHdr^.Month := SystemTime.wMonth;
  lDataHdr^.Day := SystemTime.wDay;
//  lDataHdr.RecordCount := RecordCount;
  inherited WriteHeader;

  // write EOF terminator
//if RecordCount = 0 then
//  WriteEOFTerminator;
end;

Dbase III war nicht 2000 fest. Mann ist das lange her das ich über so ein Problem gestolpert bin

Sollte gehen

[waldforest]

Hallo,
super, vielen Dank, das war's...HOCHACHTUNG !!!!!
Aufs Jahr 2000 wäre ich nie gekommen.

[Fritzew]

Gerne geschehen,

aber eine Anmerkung noch. DBase III ist wie die Dinosaurier, man sollte sie nicht wiederbeleben. Das Teil ist über 30 Jahre alt!!

[waldforest]

Hallo,
dies ist mir bewusst, aber es gibt "Chefs/Anforderer", die halt nur dBase können und ihre ganz persönlichen Auswertungen in dBase selber stricken wollen.

Von daher muss ich einige Tabellen aus meiner FirebirdDatenbank (neue Anwendung), ja nach Bedarf, nach dBase exportieren.