1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ajuda Em Delphi

Discussão em 'Programação' iniciada por Dark_Wolf, 26 de Abril de 2008. (Respostas: 1; Visualizações: 637)

  1. Dark_Wolf

    Dark_Wolf Power Member

    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
     
  2. RADguy

    RADguy Power Member

    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:

    Código:
    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;
    
     

Partilhar esta Página