Como converter de string para TTextLayout?
28/07/2019
0
[dcc32 Error] UTela.pas(40): E2010 Incompatible types: 'TTextLayout' and 'string'
Wancley Ribeiro
Post mais votado
30/07/2019
[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
Mais Posts
31/07/2019
Wancley Ribeiro
[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;
26/08/2019
Wancley Ribeiro
[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!
Clique aqui para fazer login e interagir na Comunidade :)