Подскажите, что неправильно (об индекс.файлах)
Ниже привожу кусок программы:
if FileExists('C:\PREVIS-2\PRDATA\ngdu.DB') then
begin
DeleteFile('C:\PREVIS-2\PRDATA\ngdu.DB');
end;
if not Table1.Exists then begin
with Table1 do begin
Active := False;
DatabaseName := 'Previs';
TableType := ttParadox;
TableName := 'ngdu';
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'Kod_NGDU';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin
Name := 'Name_NGDU';
DataType := ftString;
Size := 15;
end;
end;
with IndexDefs do begin
Clear;
end;
CreateTable;
end;
end;
with Table1 do begin
with IndexDefs do begin
Clear;
with AddIndexDef do begin
Name := '';
Fields := '!ngdu';
Options := [ixPrimary];
end;
with AddIndexDef do begin
Name := 'KodNGDU_Master';
Fields := 'Kod_NGDU';
Options := [ixCaseInsensitive];
end;
end;
end;
Table1.Close;