Fórum Trabalhando com arquivos INI #235048
29/05/2004
0
Estou tentando implantar a utilização de arquivos ini, mais gostaria de simplificar as coisas e não estou conseguindo.
Ex. Utilizo o seguinte comando para ler o arquivo
ini:= TiniFile.Create(´C:\Brazil\Brazil.ini´);
F_Menu.Left:= ini.ReadInteger(´F_Menu´,´LEFT´,0);
F_Menu.Top:= ini.ReadInteger(´F_Menu´,´TOP´,0);
F_Menu.Width:= ini.ReadInteger(´F_Menu´,´WIDTH´,100);
F_Menu.Height:= ini.ReadInteger(´F_Menu´,´HEIGHT´,100);
Ao inves de colocar os comano acima em todos os formularios, gostaria de cria um procedimento que digo a função e o formulario.
Ex. Function Le_INI;
begin
ini:= TiniFile.Create(´C:\Programas\Brazil_Card\Brazil_Card.ini´);
Qual_Form.Left:= ini.ReadInteger(´Qual_Form´,´LEFT´,0);
Qual_Form.Top:= ini.ReadInteger(´Qual_Form´,´TOP´,0);
Qual_Form.Width:= ini.ReadInteger(´Qual_Form´,´WIDTH´,100);
Qual_Form.Height:= ini.ReadInteger(´Qual_Form´,´HEIGHT´,100);
end;
Quando entrar no formulario clientes, digo o ´Qual_Form´ = Clientes e assim sucessivamente.
Ex. Le_INI(´Clientes´);
Se puderem me ajudar.... agradeço
Evandro
Ex. Utilizo o seguinte comando para ler o arquivo
ini:= TiniFile.Create(´C:\Brazil\Brazil.ini´);
F_Menu.Left:= ini.ReadInteger(´F_Menu´,´LEFT´,0);
F_Menu.Top:= ini.ReadInteger(´F_Menu´,´TOP´,0);
F_Menu.Width:= ini.ReadInteger(´F_Menu´,´WIDTH´,100);
F_Menu.Height:= ini.ReadInteger(´F_Menu´,´HEIGHT´,100);
Ao inves de colocar os comano acima em todos os formularios, gostaria de cria um procedimento que digo a função e o formulario.
Ex. Function Le_INI;
begin
ini:= TiniFile.Create(´C:\Programas\Brazil_Card\Brazil_Card.ini´);
Qual_Form.Left:= ini.ReadInteger(´Qual_Form´,´LEFT´,0);
Qual_Form.Top:= ini.ReadInteger(´Qual_Form´,´TOP´,0);
Qual_Form.Width:= ini.ReadInteger(´Qual_Form´,´WIDTH´,100);
Qual_Form.Height:= ini.ReadInteger(´Qual_Form´,´HEIGHT´,100);
end;
Quando entrar no formulario clientes, digo o ´Qual_Form´ = Clientes e assim sucessivamente.
Ex. Le_INI(´Clientes´);
Se puderem me ajudar.... agradeço
Evandro
Mardegan
Curtir tópico
+ 0
Responder
Posts
29/05/2004
Tatuweb
Faça assim:
para chamar a procedure:
procedure UpdateReadINI (Formulario: TForm); var Ini: TIniFile; begin Ini := TIniFile.Create (´C:\Programas\Brazil_Card\Brazil_Card.ini´); Formulario.Left := Ini.ReadInteger (Formulario.Name, ´LEFT´, 0); Formulario.Top := Ini.ReadInteger (Formulario.Name, ´TOP´, 0); Formulario.Width := Ini.ReadInteger (Formulario.Name, ´WIDTH´, 100); Formulario.Height := Ini.ReadInteger (Formulario.Name, ´HEIGHT´, 100); Ini.Free; end;
para chamar a procedure:
UpdateReadINI (Clientes)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)