BorlandTalk.com

Lerberg · Guest

Hello!

Have using the following code:

var na1 : tstrings;
begin
{ hente alle indexer }
na1:=tstringlist.create;
na1.Clear;
table1.IndexDefs.update;
table1.getindexnames(na1);

label1.caption:=inttostr(na1.count);

for x:=0 to na1.count-1 do
memo2.Lines.add(na1[x] + '(' + table1.IndexDefs.find(na1[x]).fields +
')');

Have a table with 10 fields, one with 3 fields, and both have all the
fields in the primary index. No secondary fields is created. When I
run the code above, the label1.caption return value 0, and the memo2
don't show anything. What is wrong??

When I run the database desktop and open the table, it shows correct
fields and primary index, and it also excist a file called *.px

When also running a program called DSP, Database Structure Program,
that also shows excact same result then Database Desktop, so it must
be something wrong with my code.

Please let me know what's wrong!!

TIA
Kåre
[email]lerberg (AT) c2i (DOT) net[/email]