………………………………………………………. {$R *.DFM} procedure ChangeBasePath(var scon:string;sbase:string); var j1,j2:integer; begin j1:=Pos('Data Source=',scon); if j1>0 then begin repeat Inc(j1);
135
until scon[j1]='='; Inc(j1);J2:=J1; repeat Inc(j2); until scon[j2]=';'; Delete(scon,j1,j2-j1); Insert(sbase,scon,j1); end; end; function FindFileBD(nmFileBD:string;var scon:string; var dlg:TOpenDialog):string; var sb:string; begin sb:= ExtractFilePath(ParamStr(0))+ nmFileBD; if Not(FileExists(sb)) then begin //Настройка диалога: dlg.Filter:='Файл ' +nmFileBD+'|'+nmFileBD; dlg.Title :='Найдите файл базы данных !'; dlg.InitialDir:=ExtractFilePath(ParamStr(0)); if dlg.Execute then begin sb:=dlg.FileName; ChangeBasePath(scon,sb); end else begin ShowMessage('Не найден файл БД:'+#13#10+sb+#13#10+'До свидания !');
