[BrYan]

наперёд извеняюсь если не туда написал
помогите пожалуста перевести этот код с С++ на Delphi 7, очень нада

Код:

String WayToBase;
AnsiString S;
______________________________
void __fastcall TPasswordDlg::FormCreate(TObject *Sender) 
{ 
  S=ExtractFilePath(Application->ExeName)+"Way.ini"; 
  TIniFile *ConfigFile = new TIniFile(S); 
try 
 { 
  ADOConnection1->ConnectionString=ConfigFile->ReadString("Way","WayToBase",S); 
  ADOConnection1->Connected=true; 
  ADOQuery1->Connection=PasswordDlg->ADOConnection1; 
 } 
catch(...) 
 { 
 if (ADOConnection1->Connected!=true) 
  { 
   if(OpenDialog1->Execute()) 
   OpenDialog1->FileName.c_str(); 
   WayToBase=OpenDialog1->FileName.c_str(); 
   ADOConnection1->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="+WayToBase+";Persist Security Info=False"; 

   S = ADOConnection1->ConnectionString; 
   ConfigFile->WriteString("Way","WayToBase",S); 

   ADOConnection1->Connected=true; 

  } 
 }