Fórum Como resolver erro: Incompatible string and Tcomponent #581342

13/05/2017

0

for k:=0 to 5 do begin
Mxk:=FindComponent('S1_'+IntToStr(k));
Mxk.Color:=clBlack;
end;

erro: Incompatible string and Tcomponent
Roberto Rodrigues

Roberto Rodrigues

Responder

Post mais votado

14/05/2017

Boa tarde,
o FindComponent retorna um tcomponente, se seu mxk não for de um tipo de componente essa atribuição não será possível.
você deve sempre trabalhar e fazer atribuições de objetos de mesmo tipo.
Nessa situação troque o tipo de seu mxk para o tipo desejado e tal, por exemplo o tlabel (Não sei exatamente qual componente deseja trabalhar).
no FindComponent(''S1_''+IntToStr(k)); faça um type cast para o tipo desejado, exemplo mxk := tLabel(FindComponent(''S1_''+IntToStr(k)));

Gutierry Pereira

Gutierry Pereira
Responder

Gostei + 2

Mais Posts

14/05/2017

Roberto Rodrigues

Obrigado amigo, foi de extrema utilidade para mim

Mxk_TMemo : TMemo // para Memos
Mxk_TPanel : TPanel // para Panels

Mxk:=TMemo(FindComponent('S1_'+IntToStr(k)));

Assim funcionou, grato.
Responder

Gostei + 0

14/05/2017

Roberto Rodrigues

Obrigado amigo, foi de extrema utilidade para mim

Mxk_TMemo : TMemo // para Memos
Mxk_TPanel : TPanel // para Panels

Mxk_TMemo:=TMemo(FindComponent('S1_'+IntToStr(k)));

Assim funcionou, grato.
Responder

Gostei + 0

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

Aceitar