Tente com:
ShowMessage( Parte[ Pred( Parte.Count ) ] );
[]'s
Ricardo
1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
compreendida.
3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
--- Em ter, 15/9/09, alexsandro_qs <a...@ig.com.br> escreveu:
De: alexsandro_qs <a...@ig.com.br>
Assunto: [delphi-br] Re: Capturar valor em arquivo UDL
Para: delphi-br@yahoogrupos.com.br
Data: Terça-feira, 15 de Setembro de 2009, 17:45
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...@yahoogrup os.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.DelimitedTe xt := 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.drdsiste mas.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
> >
> >
>
____________________________________________________________________________________
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
