Проблеммы с использованием функций работы со строками Copy и Pos

[Soso]

Всем привет!

У следующая проблема. Я программирую на Delphi 7. Возникла необходимость работать со строкой. Ищу позицию нужного мне слова в фразе при помощи функции Pos , а потом с этой позиции копирую слово определенной длины при помощи функции Copy. Весь код работы со строкой у меня находится в отдельной процедуре.
Проблемма вот в чем. Когда я вызываю эти функции первый раз, то все работает, но когда я пытаюсь повторить с поиском нового слова, то номер позиции указывается, а вот скопировать часть текста из фразы не получается. После повторного вызова функции Copy у меня она возвращает пустую строку, строка, из которой копировалось тоже пустая и выполнение программы сразу перескакивает к концу процедуры. Как ни пробывал, не могу понять в чем проблемма.
Может уже кто сталкивался с такой проблеммой? Подскажите, как решить!

[Квэнди]

мы не медиумы, год показывайте

[JTG]

"Моя программа орёт access violation и посылает всех матом. что делать?"
Код в студию!

[pinhead]

Сообщение от Квэнди

мы не медиумы, год показывайте

Для СоСо: Может не поймёте год=код!

[Soso]

pinhead, спасибо за подсказку!

А код достаточно простой.

// StrRing := Оазис (уровень 5) 0:23:46 ч. Готово в 16:18

i := Pos(')', StrRing);
Note := Copy(StrRing, 1, i);

i := Pos('Готово в', StrRing);
TimeRing := Copy(StrRing, i+9, Length(StrRing)-(i+9));


Вот что еще. Я обошел проблему тем, что разбил поиск каждой из фраз в отдельные функции. Сейчас попробывал опять объединить все в одну и ... о чудо. Все заработало. Что было? Может кто знает? Компьютер не перезагружал. Перезапускал Delphi, но вроде это я пробывал и раньше - не помогало.

[Квэнди]

Мда... скажи лучше что тебе надо выделить из этой строки ? "Оазис (уровень 5) 0:23:46 ч. Готово в 16:18 "

[Soso]

Да дело не в том, что я не могу выделить. Я уже много раз пользовался функциями работы со строками.

Но а так вот, что будет в переменных:
Note := 'Оазис (уровень 5)';
TimeRing := '16:18';

Проблемма в том, что второе копирование не хотело выполняться и дальнейший код, что следовал после второго вызова функции Copy, проскакивыл и не выпалнялся. В чем проблемма была - не знаю.

[Stilet]

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

Проблемма в том, что второе копирование не хотело выполняться и дальнейший код, что следовал после второго вызова функции Copy, проскакивыл и не выпалнялся. В чем проблемма была - не знаю.

Возможно оптимизатор срабатывал, если ты нигде больше ни раньше ни позже не используеш вторую пременку, то и компилить ее незачем.

[Aristarh Dark]

Note := 'Оазис (уровень 5)';
TimeRing := '16:18';

uses StrUtils;
...
Note:=LeftStr(SomeVar,pos(')',SomeVar));
TimeRing := RightStr(Trim(SomeVar),5);

[Soso]

Aristarh Dark, спасибо! Буду иметь в виду данныйе функции.