Fórum Obter indices configurado no IndexDefs do ClientDataSet #339764

procedure TForm1.Button1Click(Sender: TObject); 
var 
  sLista : TStringList; 
begin 
  sLista := TStringList.Create; 
  ClientDataSet1.GetIndexNames(sLista); 

  //Não tras nada 
  showmessage( sLista.Text ); 

  FreeAndNil(sLista); 

//Mesmo o código abaixo não traz os indices que estão definidos no meu IndexDefs do ClientDataSet 
//  for I := 0 to ClientDataSet1.IndexDefs.Count - 1 do 
//   showmessage(ClientDataSet1.IndexDefs[i].Fields); 

end;