Кто силен в Delphi - нид хелп!:)

[trafbite]

Суть такая.

Есть строка вида: "ааа ббб ввв ггг ааа еее".

Нужно заменить все вхождения "ааа" в строке на какие-либо разные значения, например рандомные цифры при помощи.

Делаю так (TRegExpr):

    string:='ааа ббб ввв ггг ааа еее';
    regexp.InputString:=string;
    regexp.Expression:='ааа';
    if RegExp.Exec then
      repeat
        string:=AnsiReplaceStr(string,RegExp.Match[0],inttostr(random(100)));
      until not RegExp.ExecNext;
    end;

но в таком случае все вхождения "ааа" в строке заменяются на одно и тоже значение, а нужно на разные.

Помогите!

[BlackMilk]

я бы делал так (на работоспособность не проверял, может быть какой-нибудь легко устранимый косяк с индексами):

str:='ааа ббб ввв ааа';
substr:='ааа';
while pos(substr, str)<>0 do
begin
	t:=pos(substr, str);
	delete(str, t, length(substr));
	newstr:=inttostr(random(20)); // на что заменяем
	insert(newstr, t, str);
end;

[desert-eagle]

с делфи не знаком но из дот-нетовского опыта проблема может быть в вызове функции рандома, например в .net если инициализировать рандомную переменную внутри цикла то будет не айс - куча одинаковых значений:



foreach (string fileName in fileEntries)
{
Random random = new Random();
string randomFile = random.Next(1, 100000).ToString();

}

а вот так будет правильно:

Random random = new Random();

foreach (string fileName in fileEntries)
{

string randomFile = random.Next(1, 100000).ToString();

}

[trafbite]

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

я бы делал так (на работоспособность не проверял, может быть какой-нибудь легко устранимый косяк с индексами):

str:='ааа ббб ввв ааа';
substr:='ааа';
while pos(substr, str)<>0 do
begin
	t:=pos(substr, str);
	delete(str, t, length(substr));
	newstr:=inttostr(random(20)); // на что заменяем
	insert(newstr, t, str);
end;

О, натолкнул на мысль, точно, тут и без регулярки все просто. Спасибо!

desert-eagle, не вызов рандома в цикле здесь ни при чем

[HwoR]

randomize;

не?

[trafbite]

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

randomize;

не?

а поподробнее?

рандомайз стоит сразу после бегина процедуры:

var
...
begin
randomize;
...
//здесь то, что я выше приводил

В принципе проблема решена (спасибо BlackMilk), но это многовато телодвижений, я думал можно как-то короче и быстрее это сделать
В любом случае всем отписавшимся спасибо