Ok, obrigado Reginaldo.
--- Em delphi-br@yahoogrupos.com.br, "reginaldo" <regina...@...>
escreveu
>
> Inclua a unit IniFiles na clausula uses do seu form.
>
> Procedure TForm1.GravaIni( Numero : Longint ; Texto : String ;
Condicao : Boolean);
> var
> ArqIni : TIniFile;
> begin
> ArqIni := TIniFile.Create('c:\windows\temp\Teste.Ini');
> Try
> ArqIni.WriteInteger('Dados', 'Numero', Numero);
> ArqIni.WriteString('Dados', 'Texto', Texto);
> ArqIni.WriteBool('Dados', 'Condição', Condicao);
> Finally
> ArqIni.Free;
> end;
> end;
>
> Procedure TForm1.LeIni( Var Numero : Longint ; Var Texto :
String ; Var Condicao : Boolean);
> var
> ArqIni : tIniFile;
> begin
> ArqIni := tIniFile.Create('c:\windows\temp\Teste.Ini');
> Try
> Numero := ArqIni.ReadInteger('Dados', 'Numero', Numero );
> Texto := ArqIni.ReadString('Dados', 'Texto', Texto );
> Condicao := ArqIni.ReadBool('Dados', 'Condição', Condicao );
> Finally
> ArqIni.Free;
> end;
> end;
>
> Utilize as procedures assim:
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> GravaIni(1234,'TESTE',True);
> end;
> procedure TForm1.Button2Click(Sender: TObject);
> var
> N: Integer;
> T: String;
> C: Boolean;
> begin
> LeIni(N,T,C);
> Showmessage(IntToStr(N)+' '+T);
> end;
>
> Atenciosamente,
>
> Reginaldo
> "Buscai ao SENHOR enquanto se pode achar, invocai-o enquanto está
perto." Isaías 55:6
> ----- Original Message -----
> From: Cleber Edson Lino
> To: delphi-br@yahoogrupos.com.br
> Sent: Wednesday, December 17, 2008 10:57 AM
> Subject: [delphi-br] Arquivo Ini no Delphi
>
>
> Olá pessoal... bom dia...
> Olha só, preciso pegar conteúdo de arquivo .ini, alguém tem um
exemplo
> aí que possa me ajudar. E tem que ter alguma coisa que pega a
variável
> de sessão aquela que fica entre [Teste] ok?
>
> Obrigado a todos.
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
