Sign by Dealighted - Coupons & Discount Shopping

www.yandex.ru Не жадничай!

Alias

    Что бы не морочить себе голову при работе с базами данных используйте код показанный в листинге при запуске своей программы!

void __fastcall TForm1::SetupAlias()
{
        TConfigMode Save_Config = Session->ConfigMode;
        Session->ConfigMode = cmAll;
        if(!Session->IsAlias("MyAlias"))
        {
            Session->AddStandardAlias("MyAlias", ExtractFilePath(ParamStr(0)), "PARADOX");
        }
        else
        {
            TStringList* pslAliasParams = new TStringList();
            Session->GetAliasParams("MyAlias",pslAliasParams);
            pslAliasParams->Clear();
            pslAliasParams->Add("PATH=" + ExtractFilePath(ParamStr(0)));
            Session->ModifyAlias("MyAlias",pslAliasParams);
            delete pslAliasParams;
        }
        Session->SaveConfigFile();
        Session->ConfigMode = Save_Config;
        Table1->DatabaseName = "MyALias";
        Table1->TableName = "MyData.db";
        Table1->Active = true;
}