Загрузить часть текста в TMemo

[Qami]

Слышал про функцию Copy, но там можно указывать только 1 символ, с которого начинается эта часть. А как например вытащить нужный фрагмент из кода страницы ?

[W0LF]

Нет, можно указать через Pos, пример:

   Memo1.Text := Copy({тут переменная, где находиться ваш код страницы}, 
                                Pos('<title>',{опять же ваша переменная}) + Length('<title>'), 
//непомню, нужно ли тут -1 ставить после Length('<title>') 
                                Pos('</title>', {ваша переменная}));

В итоге, в memo окажеться кусок страницы от <title> до </title> (невключая этих тегов)

[Qami]

Мне собственно нужно скопировать все от <a onclick до .blur(); там все то же самое ?

[W0LF]

Да, но будет косяк, если "<a onclick" и ".blur();" будут повторяться и находиться в разных позициях... луче бери такой кусок, что бы он был один и не повторялся на странице...

[Qami]

Спасибо огромное, давно искал как это реализовать

А если эта часть повторяется, то можно взять сколько-нибудь символов после указанной части например так (это конечно не правильно, но думаю, смысл понятен)
i := Copy({переменная, содержащая код}, 'здесь начинается часть', 4);
Т.е получается i присвоится 'здесь начинается часть{и 4 символа после неё}'