tworzenie indeksu

0

Witam.
z poziomu kodu tworzę tabelę przykład poniżej:
table1.DatabaseName := 'karty_pracy';
table1.TableType := ttDbase;
table1.TableName := 'p_wn'+labelededit1.text+labelededit2.text+'.dbf';;
with table1.FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'TYP';
DataType := ftSTRING;
Size := 25;
end;
with AddFieldDef do begin
Name := 'MARKA';
DataType := ftDate;
end;
with AddFieldDef do begin
Name := 'NR_INWE';
DataType := ftSTRING;
size:=10;
end;
with AddFieldDef do begin
Name := 'nr_REJ';
DataType := ftSTRING;
size:=10;
end;
with AddFieldDef do begin
Name := 'Miejsce';
DataType := ftSTRING;
size:=20;
end;

with table1.IndexDefs do begin
  Clear;
  with AddIndexDef do begin
    Name := 'POJAZD_0';
    Fields := 'MIEJSCE;NR_INWE';
  end;
end; 

end;
table1.CreateTable

problem mój polega na tym, że nie mogę utworzyć indeksu (z poziomy bde indeks zakładany jest jako

expresion index MIEJSCE+NR_INWE

proszę podpowiedzieć, gdzie popełniam błąd
z góry dziękuję za sugestie

pozdrawiam
JanuszLEG

0

spróbuj użyć TDBF'a jest łatwy w użyciu i przyjemny, i tworzenie indeksów jest i pakowanie tabel i innych, pełna dokumentacja i jest za darmo

http://tdbf.sourceforge.net/

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0