Fórum Usando arquivo .ini #330403
30/09/2006
0
Ola galera,,, eu so bm leigo nisso ainda! entao seguinte,, gostaria de aprender a faze um troco meio simples,,, so pra aprender,,
como faço pra
antes do meu projeto ser carregado ele verifique um arquivo .ini e veja a data q esta lah,,
digamos c a data q estiver lah for dia 22/08,,, o sistema naum carrega so emite uma mensagem (Descanso! voce é seu aniversario!!! )
alguem pode me ajudar...
como faço pra
antes do meu projeto ser carregado ele verifique um arquivo .ini e veja a data q esta lah,,
digamos c a data q estiver lah for dia 22/08,,, o sistema naum carrega so emite uma mensagem (Descanso! voce é seu aniversario!!! )
alguem pode me ajudar...
Output
Curtir tópico
+ 0
Responder
Posts
30/09/2006
Paulocesar1301
Bom...
Podes colocar um código no Project
Não testei, pois estou longe de meu micro-computador... mas acredito que seja isso aí !
Qualquer coisa grite !
Abraços e Bons Códigos :wink:
Podes colocar um código no Project
Uses INIFiles;
Var meuINI: TINIFile;
DataRecuperada: TDateTime;
begin
Application.Initialize;
meuINI := TINIFile.Create(´<caminho completo do seu arquivo ini>´);
If Date = StrToDate(´dd/mm/yyyy´, meuINI.ReadString(´BASE´, ´DATA´, FormatDateTime(´dd/mm/yyyy´),Date)) Then
begin
Application.MessageBox(´Descanso! voce é seu aniversario!!!´, ´AVISO !!´, MB_IconEXCLAMATION + MB_Ok);
meuINI.Free;
Application.Terminate;
end
Else
Application.Run;
end;
Não testei, pois estou longe de meu micro-computador... mas acredito que seja isso aí !
Qualquer coisa grite !
Abraços e Bons Códigos :wink:
Responder
Gostei + 0
30/09/2006
Rinez
Caro amigo rodrigomiss:
Faça o seguinte:
1) Abra um novo projeto e coloque um combobox e coloque em propriedades text branco.
2) Vá na unit1 e coloque depois de {$R *.dfm}
var
ArqIni : String;
3)Coloque no on create de seu form1, coloque no uses inifiles:
procedure TForm1.FormCreate(Sender: TObject);
var
Ini : TIniFile;
begin
{caminho e arquivo ini dos aniversarios}
ArqIni := ExtractFilePath(Application.ExeName)+´myaniv.ini´;
try
Ini := TIniFile.Create(ArqIni);
if not FileExists(ArqIni) then begin
Ini.WriteString( ´Fulano de Tal´ , ´Aniversario´ , ´05/01´ );
Ini.WriteString( ´Cicrano de Tal´ , ´Aniversario´ , ´10/02´ );
end;
if FileExists(ArqIni) then begin
Ini.ReadSections(Combobox1.Items);
end;
finally
Ini.Free;
end;
end;
4) coloque no on change de seu combobox1:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
Ini : TIniFile;
s:string;
mdata:tdate;
dia,mes,ano,diaaniv,mesaniv:word;
begin
if ComboBox1.ItemIndex < 0 then
Raise Exception.Create(´É preciso escolher o usuário´);
Ini := TIniFile.Create(ArqIni);
mdata:=date();
decodedate(mdata,ano,mes,dia);
try
if Ini.SectionExists(ComboBox1.Text) then begin
s:= Ini.ReadString( ComboBox1.Text , ´aniversario´ , ´´ );
diaaniv:=strtoint(copy(s,1,2));
mesaniv:=strtoint(copy(s,4,2));
if (mes=mesaniv) and (dia=diaaniv) then
showmessage(´Parabés!!!!!´+#13+
´Pode descansar este é o grande dia de seu aniversário´);
end
else
Showmessage(´Problemas para localizar o esquema de aniversarios´);
finally
Ini.Free;
end;
end;
Pronto voce pode testar o aniversário do usuario. abra no Bloco de notas e coloque no
arquivo ini o que quizer.
Abraços Prof. Zenir.
Faça o seguinte:
1) Abra um novo projeto e coloque um combobox e coloque em propriedades text branco.
2) Vá na unit1 e coloque depois de {$R *.dfm}
var
ArqIni : String;
3)Coloque no on create de seu form1, coloque no uses inifiles:
procedure TForm1.FormCreate(Sender: TObject);
var
Ini : TIniFile;
begin
{caminho e arquivo ini dos aniversarios}
ArqIni := ExtractFilePath(Application.ExeName)+´myaniv.ini´;
try
Ini := TIniFile.Create(ArqIni);
if not FileExists(ArqIni) then begin
Ini.WriteString( ´Fulano de Tal´ , ´Aniversario´ , ´05/01´ );
Ini.WriteString( ´Cicrano de Tal´ , ´Aniversario´ , ´10/02´ );
end;
if FileExists(ArqIni) then begin
Ini.ReadSections(Combobox1.Items);
end;
finally
Ini.Free;
end;
end;
4) coloque no on change de seu combobox1:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
Ini : TIniFile;
s:string;
mdata:tdate;
dia,mes,ano,diaaniv,mesaniv:word;
begin
if ComboBox1.ItemIndex < 0 then
Raise Exception.Create(´É preciso escolher o usuário´);
Ini := TIniFile.Create(ArqIni);
mdata:=date();
decodedate(mdata,ano,mes,dia);
try
if Ini.SectionExists(ComboBox1.Text) then begin
s:= Ini.ReadString( ComboBox1.Text , ´aniversario´ , ´´ );
diaaniv:=strtoint(copy(s,1,2));
mesaniv:=strtoint(copy(s,4,2));
if (mes=mesaniv) and (dia=diaaniv) then
showmessage(´Parabés!!!!!´+#13+
´Pode descansar este é o grande dia de seu aniversário´);
end
else
Showmessage(´Problemas para localizar o esquema de aniversarios´);
finally
Ini.Free;
end;
end;
Pronto voce pode testar o aniversário do usuario. abra no Bloco de notas e coloque no
arquivo ini o que quizer.
Abraços Prof. Zenir.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)