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