Subject Re: [IBO] GetIndexNames
Author Helen Borrie
Gerard,
Confirmed, this property seems to be unpublished for TIBOTable.

try this:

procedure TForm1.Button1Click(Sender: TObject);
var
slIdx: TStringlist;
begin
with ibodatabase1 do
if not connected then
connect;
with ibotable1 do
begin
if not active then
open;
slIdx := TStringlist.create;
try
IndexDefs.Update;
IndexDefs.GetItemNames( slIdx );
Showmessage(slIdx.text);
finally
slIdx.Free;
end;
end;
end;

cheers,
Helen


At 09:28 PM 01-10-01 +0200, you wrote:
>Thanks Helen,
>
>On Mon, 01 Oct 2001 22:18:14 +1000, you wrote:
>
> >At 02:11 PM 01-10-01 +0200, you wrote:
> >>I'm converting an Interbase Delphi 4-application from the BDE to
> >>IBO.
> >>Somewhere I need a list of the indexes on a Table.
> >>I used to use TTable.GetIndexrNames for that purpose, but
> >>TIBOTable.GetIndexNames is not supported.
> >
> >
> >Gerard,
> >I'm curious to know why you think GetIndexNames isn't supported - did you try to call it?
>
>I tried it this way .....
>
>procedure TForm1.Button3Click(Sender: TObject);
>var
> slIndexes: TStringList;
>begin
> slIndexes := TStringList.Create;
> IBOTable1.GetIndexNames(slIndexes);
> slIndexes.Free;
>end;
>
>..... but it won't compile with the message "undeclared
>identifier"
>
> >rgds,
> >Helen
> >
> >All for Open and Open for All
> >InterBase Developer Initiative · http://www.interbase2000.org
> >_______________________________________________________
> >
> >
> >
> >
> >Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
> >
> >
>
>
>
>
>
>Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

All for Open and Open for All
InterBase Developer Initiative · http://www.interbase2000.org
_______________________________________________________