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....@gmail.com Site: http://www.drdsistemas.com.br/ ....................................................... 2009/9/15 alexsandro_qs <a...@ig.com.br> > > > 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....@...> 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....@... > > Site: http://www.drdsistemas.com.br/ > > ....................................................... > > > > > > 2009/9/11 alexsandro_qs <a...@...> > > > > > > > > > > > > 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]
