var
i:integer;
abc:String;
list:TStrings;
begin
list:=Tstringlist.Create;
list.LoadFromFile('f:/abc.htm');
abc:='.files/';
//list.text :=StringReplace(abc,'/',#13#10,[rfReplaceAll]);
for i:=0 to list.count-1 do
if pos(abc,list.strings)<> 0 then
showMessage(list.strings+'在这一行里可是要怎么拿出来啊');
list.Destroy;
end
var
abc:string;
begin
abc:='<p>如仍要继续，单击<a href="第四课.files/frame.htm">此处</a>.</p>';
delete(abc,1,pos('="',abc)+1) ;
abc:=copy(abc,1,pos('.files/',abc)+6);
showMessage(abc);
