Logo

  DELPHI - FAQ

  Delphi-FAQ | Allgemeine Tipps | Grafik | Datenbanken | VCL | DLL-Programmierung |
 
  Delphi-FAQ | Datenbanken | Allgemein |
  Alle Indexe einer Tabelle löschen

procedure DeleteAllIndex(db :TTable);
var   L   :TStringList;
      z   :Integer;
begin
 L:=TStringList.Create;
 DB.GetIndexNames(L);
 DB.IndexName:='';
 for z:=0 to L.Count-1 do db.deleteIndex(L[z]);
 L.Free;
end;




 26.01.2006 © wlsoft www.wlsoft.de