[Delphi]Arquivo INI em um ListBox
Olá pessoal o eu aqui de novo pedindo ajuda,
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
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
Curtidas 1
Melhor post
Raimundo Pereira
16/09/2015
Bom dia, Selva
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
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
GOSTEI 1
Mais Respostas
Ricardo Araujo
16/09/2015
Bom dia,
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.
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
Cgm2k7 2013
16/09/2015
Boa tarde amigo vlw por tentar ajuda muito brigado...
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
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
Cgm2k7 2013
16/09/2015
vlw amigo (rbbarreto) muito obrigado deu certo aqui.
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;
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
Ricardo Araujo
16/09/2015
ok, qualquer coisa me avise.
GOSTEI 1
Ricardo Araujo
16/09/2015
Caro amigo,
vota ai se a dica foi positiva blz.
vota ai se a dica foi positiva blz.
GOSTEI 1
Cgm2k7 2013
16/09/2015
pronto!!
não tinha visto como votar rsrsr...
vlw amigo
não tinha visto como votar rsrsr...
vlw amigo
GOSTEI 0