Como resolver erro: Incompatible string and Tcomponent

Delphi

13/05/2017

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

Curtidas 0

Melhor post

Gutierry Pereira

Gutierry Pereira

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)));
GOSTEI 2

Mais Respostas

Roberto Rodrigues

Roberto Rodrigues

13/05/2017

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.
GOSTEI 0
Roberto Rodrigues

Roberto Rodrigues

13/05/2017

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.
GOSTEI 0
POSTAR