Bom dia; Bom ... meu veio, acredito que não deu para vc acompanhar as minhas respostas...( é claro que seria fácil ...rsrs). pois aquela solução que vc passou, não dar certo pois ele separa o "Data Souce", pois ele usa o espaço como delimitador também.... ok
--- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos <eduardo....@...> escreveu > > rapaz.. a dica que te passei resolve seu problema, é só percorrer o > stringList, mais fácil que isso impossível.. > > > Att, > ....................................................... > Eduardo Silva dos Santos > DRD SISTEMAS > (27) 3218-4201 > (27) 9961-7095 > MSN: eduardo....@... > Site: http://www.drdsistemas.com.br/ > ....................................................... > > > 2009/9/15 alexsandro_qs <a...@...> > > > > > > > Boa tarde pessoal; > > Eu consegui esse exemplo: > > > > var > > strLinha: String; > > Parte : TStringList; > > begin > > strLinha := 'a b;Alexsandro Que;Q;f;alex'; > > > > Parte := TStringList.Create; > > try > > Parte.Clear; > > ExtractStrings([';'],[ ], PChar(strLinha), Parte); > > ShowMessage(Parte[1]); > > finally > > Parte.Free; > > end; > > end; > > > > No caso desse, ele pega o "Alexsandro Que"... acredito que estou quase lá > > !!! > > Será que tem alguma forma de ele pegar só o ultimo campo, independente de > > quantos houver ? > > Aê eu mataria esse desafio ... > > Pois abriria o arquivo e pegaria somente o ultimo campo ... > > Quem poder me ajudar agradeço muito !!! > > > > --- Em delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>, > > Eduardo Silva dos Santos <eduardo.drd@> escreveu > > > > > > 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.drd@ > > > Site: http://www.drdsistemas.com.br/ > > > ....................................................... > > > > > > > > > 2009/9/11 alexsandro_qs <aq.s@> > > > > > > > > > > > > > > > > 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 > > > > > > > > > > > > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] >
