AnsiReplaceText несколько раз и разные замены

← →
WebSQLNeederr (2008-05-19 10:16) [0]

У меня есть в тексте несколько урывков текста, которые AnsiReplaceText-ом нужно заменить на разные значения, я делаю так но у меня замена одна и та же:

html.Text:=AnsiReplaceText(html.Text,"{ONE_LINK}",one_link);

Функция оне_линк:

function one_link:string;
var s:string;i:integer;
begin
i:=Random(Unit1.key.Count);
s:="<a href=""+Unit1.link.Strings[i]+"">"+Unit1.key.Strings[i]+"</a>";
one_link:=s;
end;

Как сделать что бы когда я в тексте вставляю несколько раз макрос {ONE_LINK} то создавало бы разные подстановки ??

← →
Anatoly Podgoretsky © (2008-05-19 10:21) [1]

StringReplace

← →
WebSQLNeederr (2008-05-19 10:23) [2]

спасибо, а чему Flag олжен быть равен?

← →
WebSQLNeederr (2008-05-19 10:29) [3]

попробовал rfReplaceAll но пишет ошибку [Error] Unit2.pas(218): Incompatible types: "TReplaceFlags" and "Enumeration"

← →
WebSQLNeederr (2008-05-19 10:31) [4]

все, разобрался, так надо [rfReplaceAll]

← →
Anatoly Podgoretsky © (2008-05-19 10:32) [5]

> WebSQLNeederr (19.05.2008 10:29:03) [3]

Ну зачем же пишешь rfReplaceAll если тебе нужны уникальные ссылки

← →
WebSQLNeederr (2008-05-19 10:41) [6]

сделал html.Text:=StringReplace(html.Text,"{ONE_LINK}",one_link,[]);

НО, теперь заменяет только одну ссылку и все :( А как найти сколько всего, это что через цикл нужно делать?

Надеюсь не через pos проверять количество нужно ...

> Надеюсь не через pos проверять количество нужно &#133

Религия не позволяет? Я бы с помошью while, pos, copy и «какой-то матери» все бы и сделал, безо всяких xxxReplacexxx

← →
WebSQLNeederr (2008-05-19 10:49) [8]

Пришлось так сделать, может есть проще вариант?

while pos("{ONE_LINK}",html.text)<>0 do
begin
html.Text:=StringReplace(html.Text,"{ONE_LINK}",one_link,[]);
end;

> Религия не позволяет? Я бы с помошью while, pos, copy и
> «какой-то матери» все бы и сделал
И кстати это работает гораздо быстрее, чем xxxReplacexxx

AnsiReplaceText несколько раз и разные замены - как? Найти похожие ветки