- Код: Выделить всё
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, и он нормально отрабатывал... в чём проблемма?
