Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
r.skol@live.com Novato
Registrado: Sexta-Feira, 6 de Dezembro de 2013 Mensagens: 19
|
Enviada: Sáb Dez 21, 2013 1:21 pm Assunto: Array com objetos |
|
|
Não sei se vão entender o que quero fazer.
Quando fiz meu curso, me disseram que era possível fazer isso apenas usando uma função, mas não guardei o nome e tbm não achei na net.
Vamos supor que eu tenho 100 TEdit para mudar o Text, não dá para ficar escrevendo:
Edit1.Text:=
Edit2.Text:=
[...]
Eu queria fazer algo (se possível usando o FOR) do tipo:
Edit[i].Text:=
obrigado. |
|
Voltar ao Topo |
|
|
Netrunner Aprendiz
Registrado: Domingo, 7 de Julho de 2013 Mensagens: 236
|
Enviada: Sáb Dez 21, 2013 1:27 pm Assunto: |
|
|
Código: | procedure TForm1.btn1Click(Sender: TObject);
var
i:integer;
begin
For I := 0 to ComponentCount - 1 do
If Components[I] is TEdit then
With Components[I] as TEdit do
Text:= 'Teste'; |
|
|
Voltar ao Topo |
|
|
r.skol@live.com Novato
Registrado: Sexta-Feira, 6 de Dezembro de 2013 Mensagens: 19
|
Enviada: Sáb Dez 21, 2013 4:02 pm Assunto: |
|
|
mt obrigado, vou tentar aqui |
|
Voltar ao Topo |
|
|
|