Question

Delphi中，怎么查找字符串？

比如:您访问过:百度一下，你就知道 URL:http://www.baidu.com/ Time:2009-3-21 20:36:32

那么我要他帮我把http://www.baidu.com/查找出来显示在Combobox上面
应该怎么做?
假如 不是那网站 是另外一个网站 那么我该怎么做? 能说详细点更好了`

Answer 1

用pos()和copy()吧，
i:integer;
s:='URL:http://www.baidu.com/ Time:2009-3-21 20:36:32 ';
i:=pos('http://www.baidu.com/',s);
s1:=copy(s,i,length(s));
comobobox.items.add(s1);

Answer 2

s:=trim(GetWebPage('http://www.baidu.com'));
这个函数可把网页内容赋值给S
function TF_faceslogin.GetWebPage(const Url: string):string;
var
Session,
HttpFile:HINTERNET;
szSizeBuffer:Pointer;
dwLengthSizeBuffer:DWord;
dwReserved:DWord;
dwFileSize:DWord;
dwBytesRead:DWord;
Contents:PChar;
begin
Session:=InternetOpen('',0,niL,niL,0);
HttpFile:=InternetOpenUrl(Session,PChar(Url),niL,0,0,0);
dwLengthSizeBuffer:=1024;
HttpQueryInfo(HttpFile,5,szSizeBuffer,dwLengthSizeBuffer,dwReserved);
GetMem(Contents,dwFileSize);
InternetReadFile(HttpFile,Contents,dwFileSize,dwBytesRead);
InternetCloseHandle(HttpFile);
InternetCloseHandle(Session);
Result:=StrPas(Contents);
FreeMem(Contents);
end;

Answer 3

条目保存在注册表 HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\TypedURLs 里面。你可以读出来放进Combobx。