Acho que desta forma fica mais próximo do que ele quer...
for I := 1 to 4 do
begin
with Form1.FindComponent('EditData'+IntToStr(I)) as TEdit do
begin
ReadOnly := True;
Font.Style := [fsBold];
Color := clBtnFace;
end
end;
Sds...
-----Mensagem original-----
De: Rubem Rocha [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 29 de novembro de 2004 14:49
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] d6 / Usar FOR com nomes de objetos
Prioridade: Alta
Colega Eduardo,
Nativamente no Object Pascal, isso não existe, ou seja, ele não suporta esse
tipo de sintaxe. O VB tem isso. Era isso que eu quis dizer. Agora, pra se
remediar essa (vamos dizer) ausência desse tipo de sintaxe no Object Pascal,
pode-se usar a checagem dinâmica de tipo com o operador is (linha {1}) e
typecasting ou conversão de tipos (linha {2}).
[]s
-----Mensagem original-----
De: Eduardo RC Neto [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 29 de novembro de 2004 13:39
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] d6 / Usar FOR com nomes de objetos
Claro que existe, inclusive um colega da lista acabou de responder...
for Contador := 0 to ComponentCount - 1 do
if Components[ Contador ] is TEdit then { 1 }
with TEdit( Components[ Contador ] ) do { 2 }
begin
ReadOnly := True;
Font.Style := [bsBold];
Color := clBtnFace;
end;
-------Mensagem original-------
De: Rubem Rocha
Data: 11/29/04 14:49:54
Para: [EMAIL PROTECTED]
Assunto: RES: [delphi-br] d6 / Usar FOR com nomes de objetos
Isso que vc quer fazer existe no VB. No Delphi isso não existe. Sugiro que
vc reveja seus conhecimentos em Object Pascal.
[]s
-----Mensagem original-----
De: Rodrigo Americo [mailto:[EMAIL PROTECTED]
Enviada em: segunda-feira, 29 de novembro de 2004 08:17
Para: [Delphi-Br]
Assunto: [delphi-br] d6 / Usar FOR com nomes de objetos
Pessoal,
A dúvida é a seguinte:
Tenho vários TEdit cujos nomes são EditData1, EditData2, EditData3,
EditData4... Gostaria de fazer modificações gerais, em run-time, neste
conjunto de objetos, por exemplo:
with EditData1 do
begin
ReadOnly := True;
Font.Style := [bsBold];
Color := clBtnFace;
end;
Gostaria de fazer algo do tipo (é só a idéia!):
for I := 1 to 4 do
begin
with EditData[I] do
begin
ReadOnly := True;
Font.Style := [bsBold];
Color := clBtnFace;
end;
end;
Alguém sabe como fazer?
Obrigado,
Rodrigo Américo
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse: http://br.groups.yahoo
com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED]
ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED]
ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.799 / Virus Database: 543 - Release Date: 19/11/2004
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
