Trabalhando com arquivos INI

Delphi

29/05/2004

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


Mardegan

Mardegan

Curtidas 0

Respostas

Tatuweb

Tatuweb

29/05/2004

Faça assim:

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)



GOSTEI 0
POSTAR