- Код: Выделить всё
- if FileExists('\baza\1.dbf') = True then
 begin
 With Dbf1 do begin
 FilePath:='';
 FilePathFull:='';
 TableName:='\baza\1.dbf';
 end;
 end
 else //Если файл базы словарей не существует... тогда создаём новый
 begin
 With Dbf1 do begin
 FilePath:='';
 FilePathFull:='';
 TableName := '\baza1.dbf';
 with FieldDefs do begin
 Clear;
 Add('q',ftString,4,False);
 Add('w',ftInteger, 1,False);
 Add('e',ftString,2048,False);
 end;
 CreateTable;
 end;
 end;
 Dbf1.Exclusive:=True;
 Dbf1.Active:=True;
Этот код выполняется 1 раз при запуске приложения, но программа при каждом запуске пересоздаёт DBF файл... ранее этот же самый код я использовал в WIN, и он нормально отрабатывал... в чём проблемма?




