Como o amigo classifica o procedimento abaixo ? Como disse anteriormente,
esta rotina simula uma MACRO-SUBSTITUIÇÃO no Delphi, e funciona
perfeitamente.
procedure TufrmPlaneja.MostraMacrosubs;
Var
iVezes : Byte;
iComponentes : Byte;
begin
iComponentes := TabSheet4.ComponentCount - 1;
for iVezes := 1 To iComponentes do begin
if TabSheet4.Components[iVezes] is (TCheckBox) then begin
ShowMessage (TCheckBox(TabSheet4.Components[iVezes]).Caption ) ;
end;
end;
end;
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de Rubem Nascimento da Rocha
Enviada em: segunda-feira, 29 de junho de 2009 03:34
Para: delphi-br
Assunto: RE: [delphi-br] Macro Substituição
Prioridade: Alta
Companheiro, cada coisa no seu devido lugar. O conceito de
macro-substituição é conhecido para aqueles que, assim como vc e eu,
desenvolveram aplicações em linguagens xBase (dBase, FoxPro, Clipper,
Joiner, etc.). Este conceito é inerente, portanto, a estas linguagens
citadas. Por ser uma linguagem, em essência, interpretada, ela permite esse
tipo de sintaxe. Já em Object Pascal isso não existe, pois além de ser uma
linguagem onde o resultado final é código puro de 32 bits e não um código
pseudo-compilado e interpretado, isso não faz parte da especificação da
linguagem. Ou seja, não existe o conceito de macro-substituição em
Delphi/Object Pascal.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br>
From: jose.new...@jnewton.com.br <mailto:jose.newton%40jnewton.com.br>
Date: Fri, 26 Jun 2009 21:53:15 -0300
Subject: [delphi-br] Macro Substituição
Algum dos colegas se lembra do Clipper? Quem conhece um método para
macro-substituição no Delphi? (no 7).
Jose Newton
.
__________________________________________________________
Deixe suas conversas mais divertidas. Baixe agora mesmo novos emoticons. É
grátis!
http://specials.br.msn.com/ilovemessenger/pacotes.aspx
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
