RegExpr, парсинг данных до тех пор пока есть что парсить

[FleXik]

Вобщем нужно повторять цикл где (while Ends do) до тех пор пока есть данные для парсинга, если данных нет - выполняем Synchronize(EndWork) ;- конец работы, но цикл while Ends do по-моему составлен не правильно но если делаю просто while RegExp.Exec (мол пока есть значения) - эррорит, оно-то и понятно...

    while i<Form1.sRichEdit1.Lines.Count do
    begin
      n:=0;
      // запрос, в этом запросе нет параметра с количеством значений которое нужно парсить поэтому нужно 
      //автоматически проверять, если есть данные - повторяем цикл while Ends do, если данных нет - завершаем работу

        while Ends do  // Ends:Boolean, тут надо шаманить
        begin
            // запрос

            if RegExp.Exec('запрос') then
            repeat

               // наполнение RichEdit2, тут все норм            

            until not RegExp.ExecNext;

          n:=n+340;
        end;

      inc(i);
    end;

[evg_m]

http://www.programmersforum.ru/showp...5&postcount=13
убираем то что связано с i вставляем код заполнения и готово.
З.Ы. или же просто смотрим как "шаманить" с ends: boolean (existvalue)

[FleXik]

evg_m, да-да я помню, но помню мне еще и модератор (не помню ника) тоже давал код, он был 100% рабочий но не могу найти блин

это "Человек_Борща" или "Stilet" или "Serge_Bliznykov"

а existvalue какой тип переменной?

короче проблему решил, помню же что кто-то помогал) это был Serge_Bliznykov за что ему большое спасибо

вот ссылка на решение проблемы: http://www.programmersforum.ru/showthread.php?t=261229

надо было всего лишь сделать так:

  until not RegExp.ExecNext
        else 
            Break;

все работает идеально =)