Поиск символа в Memo с N-ой позиции

[Dj_SheLL]

Всем добрый день.
Не знаю,как подступить к решению проблемы.
Есть много-много текста в Memo,где есть строка вида "streamUrl":"http://.../.../wcKZEjLjIJmo?stream_token=dXO4w"
Мне нужно прогаммно запомнить в string переменную только эту часть http://.../.../wcKZEjLjIJmo?stream_token=dXO4w,т.е. ссылку.Ссылка каждый раз разная!
Как я делаю:
1.Вначале ищу часть строки "streamUrl":" таким образом

procedure TForm1.sButton5Click(Sender: TObject);
var i:integer;
begin
//получаю код страницы
Memo1.Lines.Text:=IdHTTP1.Get(sEdit1.Text);
//запускаем цикл поиска слова
for i:=0 to Memo1.Lines.Count-1 do
if Pos(stream,Memo1.Lines.Text)<>0 then
 begin
 //тут выделяем найденное слово
 Memo1.SetFocus();
 Memo1.SelStart:=Pos(stream,Memo1.Lines.Text)-1;
 Memo1.SelLength:=Length(stream);
 end;
end;

2.Тут мне как-то нужно выделить ту часть,о которой говорилось выше.
Какие есть у меня идеи:искать символ ",которым оканчивается ссылка,находить его позицию в строке,выделять с позиции,которой оканчивался первый поиск,до позиции символа ".
Но я не знаю какими методами можно это реализовать.И я чувствую,что можно сделать проще,но как.

Буду благодарен любым советам и ссылками на методы и функции.Просто подскажите пожалуйста куда нужно "копать".

[Valio]

Яб работал с Memo1.Text.
Для начала бы удалил все 13 и 10 символы ибо служебные.
Затем нашёл бы номер где сидит "streamUrl":" и нашёл завершающую ".
Найти завершающую можно просто в цикле While до тех пор пока номер найденой " не будет превышать номер "streamUrl":" как только превысили, значит это закрывающая.

[Dj_SheLL]

А функция поиска остаётся та же?

[Valio]

Всмсысле функций? Функция Pos.

[Dj_SheLL]

Ну сделал вот так,но что-то он не хочет выделять до ковычек текст

procedure TForm1.sButton5Click(Sender: TObject);
var i:integer;
begin
Memo1.Clear;
//получаю код страницы
Memo1.Lines.Text:=IdHTTP1.Get(sEdit1.Text);
//очищаю от #13#10 и пробелов
Memo1.Text:=StringReplace(Memo1.Text,' ','',[rfReplaceAll]);
Memo1.Text:=StringReplace(Memo1.Text,#13#10,'',[rfReplaceAll]);
//запускаем цикл поиска слова
for i:=0 to Memo1.Lines.Count-1 do
if Pos(stream,Memo1.Lines.Text)<>0 then
 begin
 Memo1.SetFocus();
 Memo1.SelStart:=(Pos(stream,Memo1.Lines.Text)-1)+Length(stream);
 Memo1.SelLength:=Pos('"',Memo1.Lines.Text);
 end;
end;

Подозрение,что я не так делаю что-то...
Как через While сделать затрудняюсь понять...

[Valio]

Собственно вот набросал пример поиска с заданной позиции.
Что касается про выделение, то текст выделяется, но визуально это никак не отображается. Но это не помешает тебе: запомнить в string переменную только эту часть.

Procedure TForm1.Button1Click(Sender: TObject);
// Нажата кнопка
Var S, X : String; // Строка и что ищем
    k : Integer; // Искать с этого символа
    i : Integer;
Begin
// Присвоим переменной S значение Memo1.Text
S := Memo1.Text;
// Будем искать с k символа
k := 25;
// Будем искать ...
X := 'символ';
// Очистим S от служебных символов
While Pos(Chr(13),S) > 0 Do Delete(S,Pos(Chr(13),S),1);
While Pos(Chr(10),S) > 0 Do Delete(S,Pos(Chr(10),S),1);
// =====================
// Ищем ....
i := Pos(X, S);
// Если мы не нашли то сразу скажем об этом
If i = 0 Then ShowMessage('Строка [' + X + '] не найдена в тексте.');
// А если нашли то начнём искать
While i > 0 Do // Если нашли
  Begin // While Begin 1
    If i < k Then
      Begin // если мы нашли чтото до символа k, то
        Delete(S,1, i); // Удалим с 1-ого по i символы
        i := Pos(X, S); // Снова поищем
        // если с позиции k нам ничего найти не удалось
        If i = 0 Then ShowMessage('Строка [' + X + '] не найдена с позиции [' + IntToStr(k) + ']');
      End
    Else // Мы нашли нужный нам кусок
      Begin
        ShowMessage('Строка [' + X + '] была найдена в позицие [' + IntToStr(i) + ']');
        Break; // Прервём поиск
      End;
  End; // While End 1
// ======================
// Что касается выделения, то ...
Memo1.SelStart := 10;
Memo1.SelLength := 5;
// На самом деле текст выделен, но визуально это никак неотображается
Showmessage(Memo1.SelText); // Покажем это
// End;
End;

[Dj_SheLL]

Спасибо огромное!!!Твой пример дал мне много "пищи" для мозгов и для размышлений!
Я просто сделал,как ты мне посоветовал ранее:
1.Убил везде пробелы
2.Нашёл в какой строке находится нужное "streamUrl":"
3.Убил весь текст,который находится выше и оканчивается "streamUrl":"
4.С помощью pos нашёл закрывающий символ "
5.И скопировал ссылку