Não existe macro-substituição em Delphi! Vc deve usar o método FindComponent().
O exemplo abaixo foi extraído do próprio help do Delphi.
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
const
NamePrefix = 'MyEdit';
begin
for i := 1 to 20 do begin
TEdit.Create(Self).Name := NamePrefix + IntToStr(i);
with TEdit(FindComponent(NamePrefix + IntToStr(i))) do
begin
Left := 10;
Top := i * 20;
Parent := self;
end;
end;
end;
Sds.
To: delphi-br@yahoogrupos.com.br
From: bene20032...@yahoo.com.br
Date: Mon, 13 Jul 2009 11:56:28 +0000
Subject: [delphi-br] macro no delphi
Como faço para usar macro no delphi ?
Ex:
bitbtn1.Caption
quero substituir o 1 do bitbtn por uma variavel numerica
Tem como fazer isto ?
Muito obrigado por enqunto !
.
_________________________________________________________________
Descubra todas as novidades do novo Internet Explorer 8
http://brasil.microsoft.com.br/IE8/mergulhe/?utm_source=MSN%3BHotmail&utm_medium=Tagline&utm_campaign=IE8
[As partes desta mensagem que não continham texto foram removidas]
