[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    > I would like to get the details of a table's indexes and save the
    > details to a  file. Could someone please advise and possibly please
    > provide a snippet of code

    Here is a bit of code from one of my apps.
    It walks through a table extracting all the index information for hat
    table, and then writes it to a ini file, so that I can read it back
    in later when the indexes become corrupted..

    Hope this helps..

    procedure TForm1.WriteIndexesToFile(TN:string);
    begin
          with Table1 do
           begin
            Close;
            TableName := TN;
            Exclusive := TRUE;
            Open;
            Indexdefs.Update;
            ini.WriteInteger(TN,'Num_Indexes',Indexdefs.Count);
            for i := 0 to Indexdefs.Count-1 do
             begin
              ini.writeString(TN,'Name_'+IntToStr(i),IndexDefs.Items[
              I].Name);
              ini.writeString(TN,'Fields_'+IntToStr(i),IndexDefs.Item
              s[I].Fields);
              s1 := '';
              s1 := GetOptions (IndexDefs.items[i].Options); {Converts
    the IndexDefs' options into a spintable string, so that can save them
    to file }
              ini.WriteString(TN,'Options_'+IntToStr(i),s1);
             end;
            close;
           end;
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]