如何为多个TagString赋值(50分)

J

Jao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-02

• #1

在TPageProducer的HTMLDOC中可以使用Tag,可是如果我的HTMLDOC中有两个
以上的Tag时，要怎样赋值呢？如HTMLDOC为：
《HTML》
《BODY》
This is the first tag :《#Tag1》
This is the second tag :《#Tag2》
《/BODY》
《/HTML》
请问怎样在OnHTMLTag事件中给这两个Tag赋值呢，ReplaceText变量只有一个耶？

 

唐

唐晓锋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-02

• #2

if (条件1) and (TagString = 'Tag1') then
begin
ReplaceText:='xxxxxx';
end;

if (条件2) and (TagString = 'Tag2') then
begin
ReplaceText:='xxxxxx2';
end;

ReplaceText是只有一个,但我们可以根据条件赋给多个值呀

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-02

• #3

自定的Tag的类型为tgCustom一区别标准Tag

case tag of
tgCustom:
if tagString = 'Tag1' then ReplaceText:='This is Tag1'
else if TagString = 'Tag2 then ReplaceText := 'This is Tag2';
tgLink: ...
tgImage: ...
tgTable: ...
tgImageMap: ...
tgObject: ...
tgEmbed: ...
end;

 

J

Jao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-03

• #4

明白了，就是说Delphi遇到一个Tag时就会触发一次OnHTMLTag，当遇到Tag1时触
发OnHTMLTag事件，ReplaceText当然是给Tag1赋值了；当遇到Tag2时再触发一次
OnHTMLTag事件，这一次是为Tag2赋值了。唉，怎么就没转过这个弯子来呢。

 

J

Jao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-03

• #5

多人接受答案了。