Ajuda Em Delphi

[Dark_Wolf]

Pessoal TOu com uma duvida mauito grande urgente em delphi, será que podem dar uma ajudinha???

Já tentei de tudo e nao consigo por a guardar as definiçoes do meu programa a serem guardados num ficheiro INI...

Aqui deixo o codigo:

Codigo

Os Melhores Cumprimentos
Dark Wolf

 

[RADguy]

Olá,

Apesar do código não ser o mais eficiente, o código em parte funcionar, de referir apenas que estás a tentar guardar algumas propriedades que não existem, nomeadamente, form1.WordWrap.
A TForm não tem a propriedade WordWrap.

...e mais uma coisa, não te esqueças de destruir o que criaste o Delphi não tem garbage collector. (Ini.Free)

Aqui fica uma ideia para um código mais eficiente, não te, que enumerar cada um dos componentes visuais:

procedure SaveLableFont(MyLabel: TLabel);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create('C:\Segurança.ini');
  try
    MyLabel.Font.Name := Ini.ReadString(MyLabel.Name, 'Nome_Fonte', '');
    ...
  finally
    Ini.Free;
  end;
end;

procedure GetLableFont(MyLabel: TLabel);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create('C:\Segurança.ini');
  try
    Ini.WriteString(MyLabel.Name, 'Nome_Fonte', MyLabel.Font.Name);
    ...
  finally
    Ini.Free;
  end;
end;

...

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  I: Integer;
begin
  for I := 0 to Form1.ComponentCount-1 do
  begin
    if Form1.Components[I] is TLabel then
      SaveLabelFont(TLabel(Form1.Components[I])); //Função a implemntar que grava as propriedades do Label de um ini
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to Form1.ComponentCount-1 do
  begin
    if Form1.Components[I] is TLabel then
      GetLabelFont(TLabel(Form1.Components[I])); //Função a implemntar que lê as propriedades do Label de um ini
  end;
end;