Como converter de string para TTextLayout?
Preciso converter uma string 'tltop' por exemplo para tltop que é a propriedade Layout do TLabel no delphi está dando esse erro:
[dcc32 Error] UTela.pas(40): E2010 Incompatible types: 'TTextLayout' and 'string'
[dcc32 Error] UTela.pas(40): E2010 Incompatible types: 'TTextLayout' and 'string'
Wancley Ribeiro
Curtidas 0
Melhor post
Fernando Ito
30/07/2019
Preciso converter uma string ''tltop'' por exemplo para tltop que é a propriedade Layout do TLabel no delphi está dando esse erro:
[dcc32 Error] UTela.pas(40): E2010 Incompatible types: ''TTextLayout'' and ''string''
[dcc32 Error] UTela.pas(40): E2010 Incompatible types: ''TTextLayout'' and ''string''
TTextLayout é um tipo enumerado
TTextLayout = (tlTop, tlCenter, tlBottom);
Declare em uses TypInfo
procedure TForm1.Button1Click(Sender: TObject);
var
Tipo: TTextLayout;
begin
Tipo := TTextLayout(GetEnumValue(TypeInfo(TTextLayout), ''tlTop''));
end;
GOSTEI 1
Mais Respostas
Wancley Ribeiro
28/07/2019
Preciso converter uma string ''tltop'' por exemplo para tltop que é a propriedade Layout do TLabel no delphi está dando esse erro:
[dcc32 Error] UTela.pas(40): E2010 Incompatible types: ''TTextLayout'' and ''string''
[dcc32 Error] UTela.pas(40): E2010 Incompatible types: ''TTextLayout'' and ''string''
TTextLayout é um tipo enumerado
TTextLayout = (tlTop, tlCenter, tlBottom);
Declare em uses TypInfo
procedure TForm1.Button1Click(Sender: TObject);
var
Tipo: TTextLayout;
begin
Tipo := TTextLayout(GetEnumValue(TypeInfo(TTextLayout), ''tlTop''));
end;
GOSTEI 0
Wancley Ribeiro
28/07/2019
Preciso converter uma string ''tltop'' por exemplo para tltop que é a propriedade Layout do TLabel no delphi está dando esse erro:
[dcc32 Error] UTela.pas(40): E2010 Incompatible types: ''TTextLayout'' and ''string''
[dcc32 Error] UTela.pas(40): E2010 Incompatible types: ''TTextLayout'' and ''string''
TTextLayout é um tipo enumerado
TTextLayout = (tlTop, tlCenter, tlBottom);
Declare em uses TypInfo
procedure TForm1.Button1Click(Sender: TObject);
var
Tipo: TTextLayout;
begin
Tipo := TTextLayout(GetEnumValue(TypeInfo(TTextLayout), ''tlTop''));
end;
Obrigado pela ajuda!
GOSTEI 0