DBase-Tabelle lesen

[nahpets]

Zitat von ulrich70:

Ich kopiere die Dbf, setze das 29.te Byte auf 0, damit die Tabelle denkt, sie habe keinen Index, lese alle Datensätze aus und fülle sie in eine neu Tabelle mit Index, die ich dann weiter benutzen kann.

Damit ist gemeint, die DBF-Datei mit einem Hex-Editor zu öffnen und mit seiner Hilfe das besagte Byte auf den Wert Hex 0 zu ändern.

Steht in diesem Byte eine 1, so wird davon ausgegangen, dass eine Indexdatei vorhanden ist und bei deren fehlen wird ein Fehler ausgegeben. Kann man nicht für die entsprechende Indexdatei sorgen, weil sie fehlt oder defekt ist, so kann man durch Ändern eben dieses Bytes auf 0 eine "Quasireparatur" vornehmen.

TDBF ist eine gut nutztbare Komponenten, die ich überall dort nutze, wo noch dBase dransteht, aber keines mehr drin ist und auf die BDE verzichtet werden soll.

Mehr Infos zum dBase-Format: http://web.archive.org/web/201503230...truct.htm#T2.1

[nytaiceman]

Vielen Dank an Euch Alle!
Ich habe mich ein bisschen in TDBF eingearbeitet und kann nun meine DBF Dateien anzeigen.
Das folgende hilft vielleicht einem anderen Anfänger wie mir:

Delphi-Quellcode:

// Auf der Form liegen: 
// DataSource1 : TDataSource;
// DBF1 : TDBF;
// DBGrid1 : TDBGrid;
// BT_openDBClick : TButton;

// Als globale Variable
var 
 CurrentDbf  : TDbf;

// Eine DBF Datei auswählen
procedure TForm1.BT_openDBClick(Sender: TObject);
begin
  SelectDB;
end;

// Eine DBF Datei anzeigen
procedure TForm1.SelectDB;
var
  sDBFile : String;
begin
  with TFileOpenDialog.Create(nil) do
  try
    if Execute then begin sDBFile := Filename end;
  finally
    Free;
  end;
  if length(sDBFile) < 1 then exit;

  ResetDBHandle;
  CurrentDbf := TDbf.Create(nil);
  try
    CurrentDbf.FilePathFull  := ExtractFileDir(sDBFile);
    CurrentDbf.TableName     := ExtractFileName(sDBFile);
    CurrentDbf.Exclusive     := True;
    CurrentDbf.TableLevel    := 3;

    DataSource1.DataSet := CurrentDbf;
    DBGrid1.DataSource := DataSource1;
    CurrentDbf.Open;
    LabeledEdit1.Text := IntToStr(CurrentDbf.ExactRecordCount);

   except
     on E : Exception do MessageDlg(E.ClassName +#13#10 +E.Message,mtError, [mbOK], 0);
  end;

end;

// Zurücksetzen einer allenfalls geöffneten DB
procedure TForm1.ResetDBHandle;
begin
  if assigned(CurrentDbf) then
  begin
    CurrentDbf.Close;
    CurrentDbf.Free;
    LabeledEdit1.Text := '';
  end;
end;

// Schliessen der Applikation
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ResetDBHandle;
end;

// Verändern der Applikationsgrösse
procedure TForm1.FormResize(Sender: TObject);
begin
  DBGrid1.Width   := DBGrid1.Parent.Width -22;
  DBGrid1.Height  := DBGrid1.Parent.Height -DBGrid1.Top -40;
end;