Como resolver erro: Incompatible string and Tcomponent
for k:=0 to 5 do begin
Mxk:=FindComponent('S1_'+IntToStr(k));
Mxk.Color:=clBlack;
end;
erro: Incompatible string and Tcomponent
Mxk:=FindComponent('S1_'+IntToStr(k));
Mxk.Color:=clBlack;
end;
erro: Incompatible string and Tcomponent
Roberto Rodrigues
Curtidas 0
Melhor post
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)));
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
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.
Mxk_TMemo : TMemo // para Memos
Mxk_TPanel : TPanel // para Panels
Mxk:=TMemo(FindComponent('S1_'+IntToStr(k)));
Assim funcionou, grato.
GOSTEI 0
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.
Mxk_TMemo : TMemo // para Memos
Mxk_TPanel : TPanel // para Panels
Mxk_TMemo:=TMemo(FindComponent('S1_'+IntToStr(k)));
Assim funcionou, grato.
GOSTEI 0