Nome do componente de forma sequencial ajuda
Pessoal é o seguinte, eu precisava por exemplo, vamos dizer que eu tenho um vetor de um String de 10 posicoes, claro que a
escala sera bem maior, porem é só um exemplo, e no form eu tenho 10 edits, o que eu gostaria de fazer é mais ou menos isso
While wvetor < 10 do begin
wvetor:=wvetor+1;
edit+wvetor+.text:=wstring[wvetor];
end;
ou seja, os componentes estao criados no form, porem eu nao queria ficar escrevendo os edits, gostaria de saber se tem alguma forma, de adicional ums string para colocar o nome de um componente em tempo de executação...
Nao sei se consegui passar a duvida, senao me digam que tento explicar de outra forma, desde ja fico grato pela atenção
de todos.
escala sera bem maior, porem é só um exemplo, e no form eu tenho 10 edits, o que eu gostaria de fazer é mais ou menos isso
While wvetor < 10 do begin
wvetor:=wvetor+1;
edit+wvetor+.text:=wstring[wvetor];
end;
ou seja, os componentes estao criados no form, porem eu nao queria ficar escrevendo os edits, gostaria de saber se tem alguma forma, de adicional ums string para colocar o nome de um componente em tempo de executação...
Nao sei se consegui passar a duvida, senao me digam que tento explicar de outra forma, desde ja fico grato pela atenção
de todos.
Douglas Michelino
Curtidas 0
Respostas
Douglas Michelino
03/07/2012
Pode deixar pessoal ja consegui resolver...
wconta:=0;
while wconta < 10 do begin
wconta:=wconta+1;
TEdit( FindComponent(Edit+inttostr(wconta)) ).text := wstring[wconta];
end;
Utilizei dessa forma;
wconta:=0;
while wconta < 10 do begin
wconta:=wconta+1;
TEdit( FindComponent(Edit+inttostr(wconta)) ).text := wstring[wconta];
end;
Utilizei dessa forma;
GOSTEI 0
Joel Rodrigues
03/07/2012
Very good. Eu ia exatamente sugerir o FindComponent.
Mas que bom que você conseguiu e obrigado por compartilhar a solução.
Tópico encerrado.
Mas que bom que você conseguiu e obrigado por compartilhar a solução.
Tópico encerrado.
GOSTEI 0