там надо создать ini и внести в него секцию [Connect] и запись в виде строки которую я приводил в пример.
[Connect]
ConStr=Provider=***;Data Source=***;Initial Catalog=***
и путь прописать к инишнику
Цитата MrLD:
procedure TForm1.Button1Click(Sender: TObject);
var
Ini: TIniFile;
S: String;
begin
Ini := TIniFile.Create('c:\a.ini');
try
S := Ini.ReadString('CONNECT', 'ConStr', '');
Edit6.Text := S;
finally
if Assigned(Ini) then Ini.Free;
end;
end; »
|
