Erstellung eines Index bei Paradox / DBase III+ Dateien

[praktiker]

Hi

lege meine Indexe immer nach fogendem Muster an :

In der Tabelle habe ich immer ein Feld, das einen eindeutigen Index erzeugt.
(beim Erstellen der Tabelle muß das ein AutoincFeld sein ,
hier nIndex: = Autoinc)

Delphi-Quellcode:

procedure Chk4IndexAdressen;
Begin
  With TTable.Create(Nil) Do
  Begin
   try
   databasename:='';
   TableName :='C:\daten\TblName.db';
   Exclusive := True;
    Open;
   indexdefs.update;
   if IndexDefs.Count = 0 then
   begin
   IndexDefs.Clear;
   // nindex ist ein Feldtype Autoinc

   AddIndex('','NIndex', []+[ixPrimary]+[ixUnique]);
   AddIndex('Adresse','Ort;Name', []);
   AddIndex('Name','Name;Ort', []);
   end;
   Close;
   finally
   Free;
   end;
  End;
 end;

Die Sortierungen werden im gleichen Verzeichnis abgelegt, wie die eigentliche Tabelle.

Zu erkennen an gleichem Tabellennamen mit den Endungen *.px, *.y* und *.x*

[edit=MrSpock]Code Tags hinzugefügt.[/edit]