Delphi制作Web浏览器：SLHistory.Delete

显示全部楼层 · 2009-2-14 11:55:19

procedure TWebBrowerForm.WebBrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var NewIndex:integer;
begin

NewIndex:=SLHistory.IndexOf(URL);

if NewIndex=-1 then //??????

begin

if (HistoryIndex>=0) and (HistoryIndex HistoryIndex do

SLHistory.Delete(HistoryIndex);

HistoryIndex:=SLHistory.Add(URL);
请问如上SLHistory.Delete是什么意思，是删掉什么(⊙o⊙)？详解最好，O(∩_∩)O谢谢

千问 · 2009-2-14 11:55:19

删除历史记录...SLHistory应该是定义的一个TStringList的变量.这个变量用来存放用户浏览过的网址.你没有给出全的代码,只能这样理解.怎么又是你呀....?哈哈我都给你回答3个问题了....