Скачать: CL | DM;

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 проверять количество нужно ...

---

← →
ЮЮ ©   (2008-05-19 10:46) [7]

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


Религия не позволяет? Я бы с помошью while, pos, copy и &laquo;какой-то матери&raquo; все бы и сделал, безо всяких 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;

---

← →
Рамиль ©   (2008-05-19 10:49) [9]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c