Криво парсится текст

[INSectoID]

Есть функция parsetext:

function parsetext(s:string):string;
var
buf,x:string;
j:integer;
begin
randomize;
for j:=0 to countletters(s,'[') do begin
buf:=Copy(s,Pos('[',s),Pos(']',s)-Pos('[',s));
buf:=stringreplace(buf,'[','',[rfreplaceAll,rfIgnoreCase]);
buf:=stringreplace(buf,']','',[rfreplaceAll,rfIgnoreCase]);
x:=GetWordNum(buf,'|',random(CountWords(buf,'|'))+1);
s:=stringreplace(s,Copy(s,Pos('[',s),Pos(']',s)),x,[rfIgnoreCase]);
end;
result:=s;
end;

Функция должна заменять в тексте конструкции типа [вася|петя|маша] на случайно выбранное из такой конструкции слово. Но корректно работает она только один раз. На втором, третьем и т.д. срабатываниях в переменную buf копируется одна буква или вообще ничего, при этом иногда удаляются участки текста. GetWordNum, CountWords и Countletters возвращают слово по номеру, кол-во слов и кол-во определенных букв соответственно (они точно рабочие, проверены в других программах). Что же неправильно в функции?

Неужели никто не знает? Наверняка ведь ошибка банальна.

[GunSmoker]

http://www.gunsmoker.ru/2011/01/blog-post.html

[)Игнат(]

1)Ставьте брейкпоинты
2)выводите каждый отпарсенный массив [||] в эдит, и смотрите правильность
3)Наверняка в парсинге ошибка, и она имеет какую-то закономерность.
Проверьте правильность поисковых ключей.

[Serge_Bliznykov]

иногда проще написать своё, чем разобраться в чужом

вот полный, самодостаточный (т.е. не использующий каких-то дополнительных процедур и функций),
РАБОЧИЙ код:

implementation

{$R *.DFM}

function GetWordNum(const s: string; const DelimChar: char; iNum: integer): string;
var
  sIn: string;
  i: integer;
begin
  i := iNum - 1;
  if i < 0 then GetWordNum := '::' // признак ошибки
  else begin
    sIn := s;
    while (i > 0) and (Pos(DelimChar, sIn) > 0) do begin
      Delete(sIn, 1, Pos(DelimChar, sIn));
      Dec(i);
    end;

    i := Pos(DelimChar, sIn);
    if i > 0 then Delete(sIn, i, Length(sIn) - i + 1);

    GetWordNum := sIn;
  end;
end;

function StrCharCount(const S: AnsiString; C: AnsiChar): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I := 1 to Length(S) do
    if S[I] = C then
      Inc(Result);
end;


function parsetext(s: Ansistring): AnsiString;
var
  buf, x: AnsiString;
  p1, p2 : integer;
  j: integer;
begin
  p1 := Pos('[', s);
  p2 := Pos(']', s);
  while (p1>0) and (p2>p1) do begin
    buf := Copy(s, p1+1, p2-p1-1);
    x := GetWordNum(buf, '|', random(StrCharCount(buf, '|')+1) + 1);
    Delete(s, p1, p2-p1+1);
    Insert(x, s, p1);
    p1 := Pos('[', s);
    p2 := Pos(']', s);
  end;
  result := s;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Text := parsetext(Memo1.Lines.Text);
end;

p.s. обратите внимание, что я вынес Randomize из функции. Иницилизацию счётчика случайных чисел нужно выполнять ОДИН раз для приложения.
Вызывать его постоянно - это, конечно, не ошибка. Но может привести к совершенно неожиданным результатам...

[INSectoID]

GunSmoker, спасибо за ссылку, хотя моя функция небольшая и не показалась мне непонятной.
)Игнат(, я делал это. потому и обратился на форум, что не нашел ошибку.
Serge_Bliznykov, благодарю, смогу проверить код послезавтра.

[INSectoID]

Serge_Bliznykov, спасибо большое, все работает. Сравнение вашего и моего кода помогло найти ошибку.