Erstellen eine Indexdatei für DBASE Datenbank

[r_kerber]

Hallo Carlos1997,

zunächst erst mal willkommen in der Delphi-Praxis.
Ein Blick in die OH hätte Dir folgendes Beispiel gezeigt!

Delphi-Quellcode:

with Table1 do begin
  Active := False;  
  DatabaseName := 'DBDEMOS';
  TableType := ttParadox;
  TableName := 'CustInfo';

  { Vorhandene Tabelle nicht überschreiben }

  if not Table1.Exists then begin
    { Die Tabellenkomponente darf nicht aktiv sein. }
    { Zuerst Typ der Tabelle beschreiben und }
    { ihr einen Namen zuweisen. }
    { Danach die Felder der Tabelle definieren. }
    with FieldDefs do begin
      Clear;
      with AddFieldDef do begin
        Name := 'Field1';
        DataType := ftInteger;
        Required := True;
      end;
      with AddFieldDef do begin

        Name := 'Field2';
        DataType := ftString;
        Size := 30;
      end;
    end;
    { Nun die Indizes definieren }
    with IndexDefs do begin
      Clear;
      { Der erste Index hat keinen Namen,
      { da er ein Paradox-Primärschlüssel ist }
      with AddIndexDef do begin
        Name := '';
        Fields := 'Field1';
        Options := [ixPrimary];
      end;
      with AddIndexDef do begin

        Name := 'Fld2Indx';
        Fields := 'Field2';
        Options := [ixCaseInsensitive];
      end;
    end;
    { Tabelle mit Methode CreateTable erstellen }
    CreateTable;
  end;
end;