Atualizar um componente em tempo de execução
Quero passar uma string e atualizar um componete
Ex:
minha string vai mudar dentro de um for;
vv := ´varialvel´;
for x := 1 to 10 do
begin
string := vv + intTostr(x);
atualizacomponete(string,Valor);
end;
procedure atualizacomponete(s:tppvarialvel,val:double);
begin
s.value := val;
end;
Como transforma esta string em um componete ppvariavel ??????
Ex:
minha string vai mudar dentro de um for;
vv := ´varialvel´;
for x := 1 to 10 do
begin
string := vv + intTostr(x);
atualizacomponete(string,Valor);
end;
procedure atualizacomponete(s:tppvarialvel,val:double);
begin
s.value := val;
end;
Como transforma esta string em um componete ppvariavel ??????
Anonymous
Curtidas 0
Respostas
Qmd
19/02/2003
vc tem que usar FindComponent()...
Tipow:
For x := 1 to 10 do
TppVariavel( FindComponent( ´variavel´ + IntToStr(x) ).Value := Valor;
QmD
Tipow:
For x := 1 to 10 do
TppVariavel( FindComponent( ´variavel´ + IntToStr(x) ).Value := Valor;
QmD
GOSTEI 0
Qmd
19/02/2003
[size=9]desculpe mas faltou um ´)´[/size]
For x := 1 to 10 do
TppVariavel( FindComponent( ´variavel´ + IntToStr(x) ) ).Value := Valor;
sorry :|
For x := 1 to 10 do
TppVariavel( FindComponent( ´variavel´ + IntToStr(x) ) ).Value := Valor;
sorry :|
GOSTEI 0