Fórum [Delphi]Arquivo INI em um ListBox #531859
16/09/2015
0
Primeiramente agradeço pelo tanto que já me ajudaram aqui neste fórum.
Minha duvida qui hoje é o seguinte:
tenho um arquivo.ini
[Nome1]
blabla=blabla
[Nome2]
blabla=blabla
[Nome3]
blabla=blabla
quero abrir somente as linha [Nome1] e [Nome2] e [Nome3] em um ListBox1
abrir tudo q esta no arquivo.ini é fácio mas quero que listBox1 visualize só os [Nome1] e [Nome2] e [Nome3]
se alguém pode me ajudar agradeço
Cgm2k7 2013
Curtir tópico
+ 1Post mais votado
16/09/2015
Declare uses >>>> inifiles
No click do button ou qual quer outro evento coloque o código abaixo
var arq:tinifile;
var caminho_do_Arquivo:string;
begin
ListBox1.Clear; >>>> Limpa o Liste box
caminho_do_Arquivo:=(ExtractFilePath(Application.ExeName)+'L.ini');>>> Armazena o caminho do arquivo ini na variável
if not FileExists(caminho_do_Arquivo) then >>> Verifica se existe o arquivo ini
begin
ShowMessage('Arquivo INI, não localizado');
end
else
begin
arq:=tinifile.Create(caminho_do_Arquivo); >>> carrega o arquivo ini
ListBox1.Items.Add(arq.ReadString('Nome1','DATA','')); >>> Adiciona a linha deseja do arquivo no listbox
ListBox1.Items.Add(arq.ReadString('Nome2','DATA2',''));
ListBox1.Items.Add(arq.ReadString('Nome3','DATA3',''));
end;
end;
Testa ai, Aguardo retorno
Raimundo Pereira
Gostei + 1
Mais Posts
16/09/2015
Ricardo Araujo
Caro amigo fiz um exemplo simples para resolver seu problema, estarei adicionando as fotos e cada uma dela estarei detalhando.
Primeiro criaremos esta tela no delphi
[img]http://arquivo.devmedia.com.br/forum/imagem/171323-20150916-115209.png[/img]
Depois de termos criar a tela, vamos clicar no botão ( Proc. Ini ), segue imagem do código abaixo:
[img]http://arquivo.devmedia.com.br/forum/imagem/171323-20150916-115946.png[/img]
Agora que analisamos o código fonte, precisaremos criar o arquivo INI, segue imagem abaixo do arquivo ( INI ) criado:
[img]http://arquivo.devmedia.com.br/forum/imagem/171323-20150916-120352.png[/img]
depois de tudo feito, está na hora de testamos se esta funcionando a rotina, click no botão que esta marcado em amarelo para ver o resultado.
segue imagem abaixo do teste que fiz e ocorreu tudo bem.
[img]http://arquivo.devmedia.com.br/forum/imagem/171323-20150916-120934.png[/img]
Espero ter ajudado
Qualquer coisa só avisa.
Gostei + 1
16/09/2015
Cgm2k7 2013
mas quero abrir só as a linhas [Nome1],[Nome2],[Nome3] ou seja só os nome das sessões.
eu já consegui : assim
procedure TRealmForm1.FormShow(Sender: TObject);
begin
Ler_E_GravaArqINI; // esta é uma procedure para achar e abrir o arquivo
TReadINIFile.ReadSections(sListBox1.Items); // minha duvida era aqui nesta linha eu estava tentando errado : "ListBox1.Items.Add(TReadINIFile.ReadString('','',''))"
begin
TReadINIFile.Free;
end;
end;
//mas agora deu certo vlw maninho
Gostei + 0
16/09/2015
Cgm2k7 2013
mas só que não pegou só nome da sessão pegou tudo [Nome1] quero pega só Nome1.
mas agradeço porque em um outro projeto meu eu estava precisando de uma ajuda dessa para localizar um texto pelo caracteres.
este code seu me ajudou muito em outro projeto vlw mesmo
eu já consegui : assim
procedure TRealmForm1.FormShow(Sender: TObject);
begin
Ler_E_GravaArqINI; // esta é uma procedure para achar e abrir o arquivo
TReadINIFile.ReadSections(sListBox1.Items); // minha duvida era aqui nesta linha eu estava tentando errado : "ListBox1.Items.Add(TReadINIFile.ReadString('','',''))"
begin
TReadINIFile.Free;
end;
end;
Gostei + 0
16/09/2015
Ricardo Araujo
Gostei + 1
16/09/2015
Ricardo Araujo
vota ai se a dica foi positiva blz.
Gostei + 1
17/09/2015
Cgm2k7 2013
não tinha visto como votar rsrsr...
vlw amigo
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)