إضافة إسم مستعار Alias لقاعدة بيانات بارادوكس Paradox بالدلفي

[لانا]

ماشاء الله عليك مبدع أخي مهدي.

لا أنكر أن طريقتك كانت كالبلسم لمشكلتي.
لكن اقترح تعديل بسيط على الكود التالي ليكون أكثر ديناميكيه..ليتعرف على قاعدة المعطيات اينما وجد مجلد البرنامج..

PHP كود :

Add('PATH=c:\Dir1'); 


ليصبح كالتالي:

PHP كود :

var ِAlias:String;

Alias:=ExtractFilePath(Application.exename)+'Data';//  مسار قاعدة المعطيات

if Session.IsAlias('Mehdi') then
    Session.DeleteAlias('Mehdi');
      
if not Session.IsAlias('Mehdi') then
  begin
  Params := TStringList.Create;
  with Params do
    begin
    Add('DEFAULT DRIVER=PARADOX');
    Add('ENABLE BCD=True');
    Add('PATH='+Alias);         
    end;
  Session.AddAlias('Mehdi', 'PARADOX', Params);     
  Session.SaveConfigFile;
  Params.Free;

  end;