Выделение текста по количеству повторов

[saggy]

Название тяжкое, но попытаюсь объяснить:
Есть s := '[яблоко]+[груша]+[яйцо]'
Я хочу написать функцию, которая выделила бы мне текст в квадратных скобках по их порядку, т.е.:
Getstr(s,'[',']',2) = 'груша';
Где первая переменная - общая строка, вторая - символ перед выделяемой областью, третья - соответственно - символ после выделяемой области, и последняя переменная - это номер скобок. Если номер выбран 2, значит результат должен быть из вторых скобок.
Сам пробовал подумать, но подкипали извилины. Помогите, буду благодарен.

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

либо удаляйте уже использованный кусок текста либо PosEx в помощь

[Mikl69]

Я не профессионал в программировании, но сделал бы так:

procedure TForm1.Button1Click(Sender: TObject);
var
isxstr, s1str, s2str, s1, s2:string;
S1Array: Array[1..256] of integer; // массив куда запишем все [ 
S2Array: Array[1..256] of integer;  // массив куда запишем все ]
s1ch,s2ch,para:integer;
begin
isxstr:='[яблоко]+[груша]+[яйцо]';
s1str:=isxstr;
s2str:=isxstr;
s1:='[';
s2:=']';
s1ch:=1;
s2ch:=1;
para:=2; // как пример вывести символы из 2 пары
// para:=strtoint(Edit1.text);
// нахожу все символы [  (s1)
Repeat
  if s1ch=1 then S1Array[s1ch]:=Pos(s1,s1str);
  if s1ch>1 then S1Array[s1ch]:=Pos(s1,s1str)+S1Array[s1ch-1];
  if s1ch=1 then Delete(s1str,1,S1Array[s1ch]);
  if s1ch>1 then Delete(s1str,1,S1Array[s1ch]-S1Array[s1ch-1]);
  Edit6.Text :=s1str;
  inc(s1ch);
until Pos(s1,s1str)=0   ;
// нахожу все символы ]  (s2)
Repeat
  if s2ch=1 then S2Array[s2ch]:=Pos(s2,s2str);
  if s2ch>1 then S2Array[s2ch]:=Pos(s2,s2str)+S2Array[s2ch-1];
  if s2ch=1 then Delete(s2str,1,S2Array[s2ch]);
  if s2ch>1 then Delete(s2str,1,S2Array[s2ch]-S2Array[s2ch-1]);
  Edit6.Text :=s2str;
  inc(s2ch);
until Pos(s2,s2str)=0  ;
// вывожу все что находиться между нужной парой символов
if para<=s1ch-1 then begin
  ShowMessage(Copy(isxstr,S1Array[para]+1,S2Array[para]-S1Array[para]-1));
end
else
ShowMessage('Не нашлось такой пары символов. Максимальное значение пары=' +
            inttostr(s1ch-1));
end;

[eoln]

Ну зачем так? Пепел Феникса уже показал куда копать

function Getstr(s, a, b: string; n: integer): string;
var
  i, k: integer;
begin
  result := 'error';
  k := 1;
  i := pos(a, s);
  while (i > 0) and (k < n) do begin
    inc(k);
    i := posEx(a, s, i + 1)
  end;
  k := posEx(b, s, i + 1);
  if i * k <> 0 then
    result := copy(s, i + 1, k - i - 1)
end;

[saggy]

Спасибо вам за коды!!!
а то мне обычно пишут: "ты чайник", "у тебя ошибки в словах", "ты пишешь с маленькой буквы", "всё неправильно" и на этом заканчивается.
спасибо!!

Это пишут на других форумах, не так ли ?
Модератор.