|
안녕하세요 만해 입니다.
인터넷에서 구한 HTML Parser중에서 RjHtmlParser란걸 지금 사용하고 잇는데요
델파이 구문중 왠만한번 다 제가 변환을 하겠는데
Low() 하고 High()는 뭘로 변환을 해야 할지 모르겠네요
const
TagLinkAttribList : array[0..12] of TTagAttrib = (
(Tag: tagA; Attrib: attribHref),
(Tag: tagAPPLET; Attrib: attribCode),
(Tag: tagAREA; Attrib: attribHref),
(Tag: tagBody; Attrib: attribBackGround),
(Tag: tagFRAME; Attrib: attribSrc),
(Tag: tagIFRAME; Attrib: attribSrc),
(Tag: tagINPUT; Attrib: attribSrc),
(Tag: tagIMG; Attrib: attribSrc),
(Tag: tagIMG; Attrib: attribLowSrc),
(Tag: tagLINK; Attrib: attribHref),
(Tag: tagTABLE; Attrib: attribBackGround),
(Tag: tagTD; Attrib: attribBackGround),
(Tag: tagTH; Attrib: attribBackGround)
);
begin
while HtmlReporter.Next do
begin
i := Low (TagLinkAttribList);
while i <= High (TagLinkAttribList) do
begin
if HtmlReporter.Tag.Tag = TagLinkAttribList[i].Tag then
begin
repeat
a := HtmlReporter.Tag.IndexOfAttrib (TagLinkAttribList[i].Attrib);
if a >= 0 then Memo_Links.Lines.Add (HtmlReporter.Tag.Values[a]);
Inc (i);
until (i > High (TagLinkAttribList)) or
(HtmlReporter.Tag.Tag <> TagLinkAttribList[i].Tag);
Continue;
end
else
Inc (i);
end;
end;
Memo_Links.Perform (WM_SETREDRAW, 1, 0);
end;
이소스 인데요
도데체 Low()하고 , HIgh()는 뭘로 변환이 돼야 하는건지 쩝~
감도 안 잡히네요 혹 해서 같은 이름의 함수가 잇는지 찾아 봣는데 안 보이고요
고수님들의 조언 부탁 드립니다.
|