Fórum Como converter de string para TTextLayout? #603977

28/07/2019

0

Delphi

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

Gostei + 1

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

Gostei + 0

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

Gostei + 0

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

Aceitar