小弟成功讓Memo顯示出原始碼

但網路上找到的資料，利用Form1->Memo1->Text.Pos("a href=");

確實可以找到a href的地方，但卻只侷限在第一個

有沒有辦法能夠讓我找到整個Memo裡的某特定字串

再存入變數中?

順便問一下，去掉網頁的Tag應該怎麼做??

擺一個button執行以下程式碼，可以把memo1裡面的網址找出來

[code cpp]
AnsiString tmp = Form1->Memo1->Text; //memo1暫存至tmp
Form1->Memo1->Clear(); //清空memo1,做為存放找到的網址

while(tmp.Pos("a href=")) //執行到找不到為止
{
tmp = tmp.SubString(tmp.Pos("a href=") 8,tmp.Length());
AnsiString weblink = tmp.SubString(0,tmp.Pos(">")-2); //取得網址字串
Memo1->Lines->Add(weblink); //把取得網址放回memo
}
[/code]

若是要去除tag可以運用類似的方式，不斷的找<>，去掉以後，再重新斷行

謝謝您的回覆~
但是執行還是不是我預估的結果

做些修改後 則正常了
去TAG的部分還是不太會
我是利用tmp.Delete(tmp.Pos("<"),tmp.Pos(">"))這樣去做
但是都無法成功
===================引 用 daldal 文 章===================
擺一個button執行以下程式碼，可以把memo1裡面的網址找出來

[code cpp]
AnsiString tmp = Form1->Memo1->Text; //memo1暫存至tmp
Form1->Memo1->Clear(); //清空memo1,做為存放找到的網址

while(tmp.Pos("a href=")) //執行到找不到為止
{
tmp = tmp.SubString(tmp.Pos("a href=") 8,tmp.Length());
AnsiString weblink = tmp.SubString(0,tmp.Pos("\"")-1); //取得網址字串
Memo1->Lines->Add(weblink); //把取得網址放回memo
}
[/code]

若是要去除tag可以運用類似的方式，不斷的找<>，去掉以後，再重新斷行

編輯記錄

Delete的用法第一個參數是起始位置
第二個參數是刪除字元數量
所以你的程式碼要修改成結果才會正確

[code cpp]
while(tmp.Pos("<"))
{
tmp.Delete(tmp.Pos("<"),tmp.Pos(">")-tmp.Pos("<") 1);
}
[/code]