Como converter de string para TTextLayout?

Delphi

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'
Wancley Ribeiro

Wancley Ribeiro

Curtidas 0

Melhor post

Fernando Ito

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''


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

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''


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

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''


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
POSTAR