vorhandenen Index ermitteln

[hoika]

Hallo,

ich benutze deine DB nicht.

Delphi-Quellcode:

var
  IndexDef  : TIndexDef;
  iIndexDef : Integer;


bIndexExists:= False;

Table.Update;

//Table.IndexDefs ist ein array von Records,

for i:= Low(Table.IndexDefs) to High(Table.IndexDefs) do
begin
  IndexDef := Table.IndexDefs[iIndexDefs];
  if CompareText(IndexDef.Name,DeinGesuchterIndwxName)=0 then
  begin 
    bIndexExists:= True;
    break;
  end;
end;

das ganze in die Funktion

function IndexExists(theTable: TABSTabl; const theIndexName: String: Boolean;

kannst du wohl selber machen.

Ahja, nimm IndexName statt IndexFieldName, ist einfacher.


Heiko