在memo中如何提取信息,(100分)

sandal · 2003-01-22

<html><head><title>Current IP Check</title></head>
<body bgcolor=white text=black>

Current IP Address: 218.16.43.54
<br>Hostname:

</body></html>

bigroute · 2003-01-22

不明白。

sandal · 2003-01-22

那是web中得的原稿,如何提取其中的ip地址218.16.43.54
放到memo中好? 或其它方法?

zw84611 · 2003-01-22

for i := 0 to Memo1.Lines.Count-1 do
if pos('Current IP Address:', Memo1.Lines)<>0 then s := Memo1.Lines;
delete(s, 1, pos('Current IP Address:', s))

wql · 2003-03-28

帮你UP！

糟老头 · 2003-04-08

怎么看回复呢

sandal · 2003-07-02

接受答案了.