какойто муссссоооорррр!!!
<--!tag-->
какойто муссссоооорррр!!!
</--!tag-->
какойто муссссоооорррр!!!
---------------------------------------
как можно средствами delphi удалить то что находится внутри тега, вместе с самими тегами?
какойто муссссоооорррр!!!
<--!tag-->
какойто муссссоооорррр!!!
</--!tag-->
какойто муссссоооорррр!!!
---------------------------------------
как можно средствами delphi удалить то что находится внутри тега, вместе с самими тегами?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var str:string;
a,b:integer;
begin
str:=memo1.Text;
a:= pos('<--!tag-->',str); //определяем позицию начального тэга
b:= pos('</--!tag-->',str); //конечный тэг
showmessage(inttostr(a));
delete(str,a,b-a+length('</--!tag-->')); //удаляем эту часть
memo1.text := str;
end;
To disable WinKey functionality that comes with most modern keyboards save the following text in a REGINI script and run the script from the Windows NT command prompt. Restart the computer to make the changes take effect.