Ler Estilo da fonte do Grid em arquivo .ini

Delphi

22/10/2015

Estou com dificuldades para converter os tipos: 'TFontStyles' and 'Integer'. Segue código abaixo:

  DBGrid1.font.Size:=arqini_font.Readinteger('Fonte', 'Size', size);
  DBGrid1.font.Style:=arqini_font.ReadInteger('Fonte', 'Style', estilo_fonte);   // > LINHA DO ERRO.
  DBGrid1.font.Color:=arqini_font.ReadInteger('Fonte', 'Color', cor);
  DBGrid1.font.Name:=arqini_font.ReadString('Fonte', 'Fonte', fonte_name);
  DBGrid1.TitleFont.Size:=arqini_font.ReadInteger('Fonte', 'Size Fonte', size_fonte);


Todos estão funcionando, menos o estilo da fonte, o erro que retorna é o seguinte: E2010 Incompatible types: 'TFontStyles' and 'Integer'.
Jhon

Jhon

Curtidas 0

Respostas

Adriano Crivelli

Adriano Crivelli

22/10/2015

A mensagem de erro já está apontando o problema. A propriedade "Style" da fonte não pode ser lida como Integer. Tente > ReadString para a linha em que o erro ocorre.
GOSTEI 0
Jhon

Jhon

22/10/2015

Adriano, já havia tentado como strint, precisa ser convertido de outra forma, veja que o erro continua: Incompatible types: 'TFontStyles' and 'string'. O estilo da fonte é um numero inteiro, mas convertido para byte. Veja como estou fazendo para gravar no arquivo ini:

var Stilo :Integer;

Stilo:= IntToStr(byte(FontDialog1.Font.Style));
arqini_font.WriteString('Fonte','Style',Stilo);


Assim, grava no arquivo, meu problema é ler isso depois. Que ai retorna o erro de tipos incompativeis.
GOSTEI 0
POSTAR