🚀 go-pugleaf

Witajcie !!

Mam taki problem i nie wiem jak sobie poradzić :
Poniżej fragment kodu. Program się wycina na CreateTable z komunikatem
"Capability not supported".
Co ciekawe fragment ten przekopiowałem żywcem z innego programu, zmieniłem
tylko nazwy kolumn i wykasowałem część indeksów ( zostawiłem dwa ) i nazwę
tablicy i ... nie działa, choć w tamtym jest OK !!

with TabSTS do
        begin
           Close;
           TableName := 'stan';
           TableType := ttDBase;
           with FieldDefs do
              begin
                 Clear;
                 Add('Indeks', ftString, 13, True );
                 Add('Nazwa', ftString, 30, True );
                 Add('DataPrzy', ftString, 10, True );
                 Add('Sww', ftString, 20, True );
                 Add('Stan', ftWord, 0, True );
                 Add('Zak', ftFloat, 0, True );
              end;
           with IndexDefs do
              begin
                 Clear;
                 Add('IndIDX', 'Indeks', [ixPrimary]);
                 Add('DesIndIDX', 'Indeks', [ixDescending]);
              end;
           try
              CreateTable;
           except
              on Exception do MessageDlg( 'Nie można utworzyć pliku
<stan.dbf> !!',
                 mtWarning, [mbOK], 0 );
           end;{ of try}
        end;

Acha ! To jest D1 !

Pomoże ktoś ?!

Pozdrowienia
Frodo