O Fato de do espeço em data Source não é problema.. quanto ao ; lá vai..
;;;;;;;;;;;;;;;;;;;;; var ArqIni: TIniFile; StrList:TStringList; begin StrList := TStringList.Creat; ArqIni := TIniFile.Create('c:\arqu1.udl' ); try aTexto := ArqIni.ReadString('oledb', 'Data source', ''); StrList.Delimiter := ';'; StrList.DelimitedText := aTexto; //pronto você tem um StringList com todas as linhas separadas... //Basta percorrer o mesmo e pegar o valor que você deseja.. finally ArqIni.Free; StrList.Free; end; end; Att, ....................................................... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo....@gmail.com Site: http://www.drdsistemas.com.br/ ....................................................... 2009/9/11 alexsandro_qs <a...@ig.com.br> > > > > Obrigado Ricardo; > Eu estou tentando como aquivo ini > > E fiz assim: > > procedure LeIni(var aTexto: string); > > var > > ArqIni: TIniFile; > > begin > > ArqIni := TIniFile.Create('c:\arqu1.udl'); > > try > > aTexto := ArqIni.ReadString('oledb', 'Data source', aTexto); > > finally > > ArqIni.Free; > > end; > > procedure TForm1.Button1Click(Sender: TObject); > var > //cria arquivo ini > ArqIni: TIniFile; > begin > ArqIni := TIniFile.Create('c:\arqu1.udl'); > try > ArqIni.WriteString('oledb', 'Data source', 'aTexto'); > finally > ArqIni.Free; > end; > > 2 Problemas: > > 1º Como eu declaro a palavra Data Source ? ( pois tem espaços) > 2º como poderia tratar nesse código o separadar de linhas ";" pois ele esta > tratando o arquivo todo como se fosse uma linha só. Ele só encontra se eu > colocar uma linha abaixo da outra > > Ex.: > InitialCatalog=ERP; > Data_Source=www.servidor.com.br > > Se alguem poder me ajudar com isso eu agradeço muito > >