Como converter de string para TTextLayout?

28/07/2019

0

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

Responder

Post mais votado

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;

Fernando Ito

Fernando Ito
Responder

Mais Posts

31/07/2019

Wancley Ribeiro

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;
Responder

26/08/2019

Wancley Ribeiro

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!
Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar