[BrYan]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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]

Как-то так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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;