Поиск в Memo по крайним символам

[saggy]

А именно: есть две переменные-строки. Мне нужно сделать функцию, которая возвращает неизвестную строку из текста между данными строками из текста. нифига непонятно? сам знаю. тяжко. вот пример:

getstr(bigtext, before, after): string;

в тексте это так:

bigtext := 'Привет. Меня зовут Блабла. Пока.';
before := 'Привет. ';
after := 'Пока. ';

результат - 'Меня зовут Блабла.'. Возможно, это легкая функа. Но я так запутался, что у мя мозг взорвётся от два мод два. А может даже, есть такая стандартная функа. Я не знаю. Подскажите.

[Kotofff]

Форма с 4-мя Edit`ами, соответственно Edit1,Edit2,Edit3,Edit4, лежат на ней по очереди сверху вниз.

001.jpg

Код для кнопки :

  Edit4.Text := Trim(Copy(Edit1.Text,
                        pos(Edit2.Text, Edit1.Text) + Length(Edit2.Text),
                        pos(Edit3.Text, Edit1.Text) - (pos(Edit2.Text, Edit1.Text) + Length(Edit2.Text))));

[856100]

Мой вариант

function getstr(bigtext, before, after:string): string;
var
  i, j:Integer;
begin
  I:=Pos(bigtext, before)+length(before);
  J:=Pos(bigtext, after);
  Result:=Copy(bigtext, I+1, Length(bigtext)-length(before)-Length(after));
end;
...
Edit4.Text:=getstr('Привет. Меня зовут Блабла. Пока.', 'Привет. ', ' Пока.');

[saggy]

Уууу =) нифига не понял но работает! =)
thanks! спасибо!

21:59

ой... не совсем:
почему в строке
"st^антон.человек.местоположение:ма рс;"
с префиксом st^ и окончанием ; выдаётся не
"антон.человек.местоположение:марс" , а
"рс"
(только последние две буквы)?!

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор