Buscar por:

Como retornar a uma lista os campos indexados de um tabela?

Código

Procedure TForm1.Button1Click(Sender: TObject); 

var 

i : integer; 

begin 

Table1.IndexDefs.Update; 

ListBox1.Items.add 

('******** Índice Primário ********'); 

for i:=0 to Table1.IndexDefs.Count-1 do 

begin 

if Table1.IndexDefs.Items[i].Options = [ixPrimary..ixUnique] then 

ListBox1.Items.add(Table1.IndexDefs.Items[I].Fields) 

else 

begin 

ListBox1.Items.add(''); 

ListBox1.Items.add 

('**** Índice Secundário ****'); 

Listbox1.Items.Add(Table1.IndexDefs.Items[I].Name); 

end; 

end; 

end;