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