Memo & Strings

[iGlass]

У меня есть текстовый документ(Строк на 70)

Мне надо чтобы U было равно 12 строке теста, а B 18

Как это замутить ?

var
  U,B : string;

begin
  U := Memo1.lines(номер строки);
  Delete(U, 1, 2, 3, 4);

P.S Заранее благодарен!

[ОДИНОЧЕСТВО В СЕТИ]

u:=Memo1.lines[11] ;// 12 строка в мемо
b:=Memo1.lines[17] // 18 строка в мемо;

[iGlass]

Не стал тему новую создавать...

U:=Memo1.Lines[11];
Delete(U, 1, 46);

Тут у меня текст удалился нормально, а как удалить текст за нужным мне значением

Например
Realcounter</b></tr></td>
Как теги эти убрать ?

Пробовал вот так Delete(U,1,pos('<',U));

Realcounter куда-то исчезает.

Заранее очень благодарен!

[Пепел Феникса]

потому что параметры спутаны.

Delete(U,pos('<',U),Length(U));

[mosq]

лучше вот так (если теги стоят прямо посреди текста типа текст<B>text</b>text)

repeat 
delete( s , pos('<',s) , pos('>',s)-pos('<',s)+1 ); 
until pos('<',s)=0;

[iGlass]

Сообщение от mosq

лучше вот так (если теги стоят прямо посреди текста типа текст<B>text</b>text)

repeat 
delete( s , pos('<',s) , pos('>',s)-pos('<',s)+1 ); 
until pos('<',s)=0;

Респкет!

P.S Всем спасибо кто помогал!