انشاء alias ديناميكي؟؟

[delphi4ever]

بإمكانك إستعمال متغير Variable من نوع String في أي Form تحتوي على قاعدة بيانات DB على الشكل التــالي:

نضغط مرتين في الفورم FormCreate ونكتب ما يلي:

كود :

Var Alias:String; Begin Alias:=ExtractFilePath(Application.exename); Table1.databasename:=Alias; Table1.active:=True; end;

هذا في حالة ما إذا كانت قاعدة البيانات في نفس مسار الملف التنفيذي EXE
أما إذا كانت في ملف منفرد فنضيف إسم الملف مباشرة بعد الإجراء الأول +
وقبل التنفيذ يجب أن تكون الخاصية Active للـ Table = False
مع إعطاء TableName قيمتها مثل employer.db

معظم برامجي كنت أعملها بالشكل نفسه