Советы по Delphi. Версия 1.4.3 от 1.1.2001

  DataBase1.DriverName:= 'Standard';

  DataBase1.LoginPrompt:= false;

  DataBase1.Connected := False;

  DataBase1.Params.Add('Path=' + Edit1.Text);

  DataBase1.Connected := TRUE;

  Result := TRUE;

 end else begin

  StrPCopy(s,'Каталог : ' + Edit1.text + ' не найден');

  Application.MessageBox(s, 'Ошибка!', MB_ICONSTOP);

  Result := FALSE;

 end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 if ChkPath then Check(DbiAcqPersistTableLock(Database1.Handle, 'PARADOX.DRO','PARADOX'));

end;

end. 

Нечувствительный к регистру поиск в первичном индексе Paradox

Delphi 1 

К сожалению, это невозможно. Вы можете создать другой (вторичный) индекс, нечувствительный к регистру, для того же поля (или полей), для которых был создан первичный индекс, но как вы можете догадаться, этот путь потребует дополнительного программирования. 

Создание таблицы Paradox

Delphi 1 

Вот маленький кусочек кода для создания таблицы Paradox:

with TTable.create(self) do begin

 DatabaseName := 'C:\temp';

 TableName := 'FOO';

 TableType := ttParadox;

 with FieldDefs do Begin

  Add('Age', ftInteger, 0, True);

  Add('Name', ftString, 25, False);

  Add('Weight', ftFloat, 0, False);

 End;

 IndexDefs.Add('MainIndex','IntField', [ixPrimary, ixUnique]);

 CreateTable;

End; 

DBEdit и реальные значения

При работе с реальными числами, хранимые в таблице Paradox, вы уверены в том, что вы используете тип Real как тип ваших данных? Если так, то попробуйте использовать тип Double. Double – 8-байтовое (64-битное) реальное число, которое нормально работает с BDE, тогда как Real – 6-байтовая версия и подходит только для Delphi и BP. Или попробуйте использовать Extended, занимающий 10 байтов.  

Почему при создании таблицы Paradox с первичным нечувствительным к регистру индексом вываливается ошибка?

Пара строк

Nomadic отвечает:

В Парадоксе первичный индекс всегда CaseSensitive. 

Как сменить пароль (master password) для таблицы Paradox?

Nomadic отвечает:

Пожалуйста: 

var

 db : TDatabase;

 Desc : CRTblDesc;

begin

 db := PriceTable.OpenDatabase;

 FillChar(Desc, SizeOf(Desc), #0 );

 StrCopy(Desc.szTblName, PChar(PriceTable.TableName));

 StrCopy(Desc.szTblType, szParadox);

 StrCopy(Desc.szPassword, 'password');

 Desc.bProtected := TRUE;

 Check(DbiDoRestructure(db.Handle, 1, @Desc, nil, nil, nil, FALSE));

end; 

Что нужно сделать для нормальной работы в одноранговой сети с базами Paradox?

Nomadic отвечает:

BDE Config/Admin – нa вкладке System устaнови LOCAL SHARE в TRUE!

Здесь комментарий –

В Help параметр LOCAL SHARE описан как:

AA> === Cut ===

AA> The ability to share access to local data between an active BDE

AA> application and an active non-BDE application. Set to TRUE if you need to

AA> work with the same files through both a BDE and a non-BDE application at

AA> the same time. (It is not necessary to set LOCAL SHARE to TRUE if you do

AA> not need to have both applications open at the same time.) Default: FALSE.

AA> === Cut ===