Ler Arquivo Ini.
:?: Olá a todos
Imagine que tenho num form um button.
Gostaria que ao criar o form, eu possa ler num arquivo ini que está no diretório da aplicação e neste arquivo .INI, quero ler as informações:
Button1.Height => Arquivo ini = 50
Button1.Left => Arquivo ini = 5
Button1.Width => Arquivo ini = 120
Button1.Caption=> Arquivo ini = ´Teste´
Como faço isso???
Abraços a todos
Neto
Imagine que tenho num form um button.
Gostaria que ao criar o form, eu possa ler num arquivo ini que está no diretório da aplicação e neste arquivo .INI, quero ler as informações:
Button1.Height => Arquivo ini = 50
Button1.Left => Arquivo ini = 5
Button1.Width => Arquivo ini = 120
Button1.Caption=> Arquivo ini = ´Teste´
Como faço isso???
Abraços a todos
Neto
Neto
Curtidas 0
Respostas
Randall
22/09/2006
//====================================================================
FUNCTION FazConexao : BOOLEAN ;
//====================================================================
var
vArqIni : TiniFile;
begin
//=======================================================
// SO ENTRA AQUI UMA VEZ
//=======================================================
if not( fileexists( ´c:\XXX.INI´ ) ) then
begin
vArqIni := TIniFile.Create(´c:\XXX.INI´);
try
vArqIni.WriteString(´COPYRIGHT´,´Copyright´,´exemplo´);
vArqIni.WriteString(´INSTALACAO´,´Instalacao´,DateToStr(date));
finally
vArqIni.Free;
ABORT ;
end;
end
ELSE
BEGIN
vArqIni := TIniFile.Create(´c:\xxx.INI´);
try
DTINSTALACAO := vArqIni.ReadString(´INSTALACAO´, ´Instalacao´, ´´) ;
EXCEPT
ShowMessage(´Erro ao iniciar o arquivo de Inicialização !!!´);
end;
END;
FUNCTION FazConexao : BOOLEAN ;
//====================================================================
var
vArqIni : TiniFile;
begin
//=======================================================
// SO ENTRA AQUI UMA VEZ
//=======================================================
if not( fileexists( ´c:\XXX.INI´ ) ) then
begin
vArqIni := TIniFile.Create(´c:\XXX.INI´);
try
vArqIni.WriteString(´COPYRIGHT´,´Copyright´,´exemplo´);
vArqIni.WriteString(´INSTALACAO´,´Instalacao´,DateToStr(date));
finally
vArqIni.Free;
ABORT ;
end;
end
ELSE
BEGIN
vArqIni := TIniFile.Create(´c:\xxx.INI´);
try
DTINSTALACAO := vArqIni.ReadString(´INSTALACAO´, ´Instalacao´, ´´) ;
EXCEPT
ShowMessage(´Erro ao iniciar o arquivo de Inicialização !!!´);
end;
END;
GOSTEI 0
Macario
22/09/2006
Ola.
Apenas sugerindo. se vc usar Delphi ate a versao 7, na biblioteca RxLib paleta Rx Tools tem um componente (FormStorage) bem pratico para salvar confiracoes de compontes e forms.
8)
Apenas sugerindo. se vc usar Delphi ate a versao 7, na biblioteca RxLib paleta Rx Tools tem um componente (FormStorage) bem pratico para salvar confiracoes de compontes e forms.
8)
GOSTEI 0
Quartieri
22/09/2006
Uma exemplo fácil de como mexer em arquivos .ini:
https://www.devmedia.com.br/articles/viewcomp.asp?comp=2965
:)
https://www.devmedia.com.br/articles/viewcomp.asp?comp=2965
:)
GOSTEI 0