各位大侠：请问在delphi中有没有象vfp中的宏替换，没有应如何编程实现？(50分)

Z

zhhjzhhj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-26

• #1

各位大侠：请问在delphi中有没有象vfp中的宏替换，没有应如何编程实现？

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-26

• #2

没有。有的可以用其它方法代替。

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-26

• #3

没有，编译原理里有详细的说明

 

Z

zhhjzhhj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-05

• #4

for mlzhou 能否详细说明以下，例如我要实现如下功能应如何做：
var
edit1,edit2,edit3:tedit;
i:integer;
s:string;
begin
for i:=1 to 3 do
beging
s:=inttostr(i);
edit&s..text:=s;//这句是vfp中的宏替换的用法
end;
end;

 

春

春天故事

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-05

• #5

Have a look at the following code, it should suit your purpose:

procedure TfrmCommand.btnProcessClick(Sender: TObject);
var
i:integer;
begin
for i := 0 to ComponentCount - 1 do
begin
if UpperCase(Copy(Components.Name, 1, 4)) = 'EDIT' then
begin
(Components as TEdit).Text := intToStr(i);
end;
end;
end;

 

C

citybug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-05

• #6

忘记宏替换吧，它是程序的恶梦。

 

W

wangcheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-05

• #7

用FindComponent函数，就可以了，记着给分哦

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-05

• #8

var
B_edit:tObject;
i:integer;
s:string;
begin
for i:=1 to 3 do
beging
s:='edit'+inttostr(i);
B_Edit:=FindComponent(s);
(B_Edit as TEdit).text:=s;
end;
end;