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