[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; 

  } 
 }

[lmikle]

Как-то так:

Код:

procedure TPasswordDlg.FormCreate(Sender : TObject);
var
  S : String;
  WayToBase : String;
  ConfigFile : TIniFile;
begin
  S := ExtractFilePath(Application.ExeName)+'Way.ini';
  ConfigFile := TIniFile.Create(S);
  Try
    ADOConnection1.ConnectionString := ConfigFile.ReadString('Way','WayToBase',S);
    ADOConnection1.Connected := true;
    ADOQuery1.Connection := PasswordDlg.ADOConnection1;

  Except
    if Not ADOConnection1.Connected Then
      if OpenDialog1.Execute Then
        Begin
          WayToBase := OpenDialog1.FileName;
          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;
        End;
   End;
end;