26.02.2018, 18:49
|
|
I Like it!
|
|
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 660
Версия Delphi: D6/D7
Репутация: 26643
|
|
StringReplace
Код:
const
HtmlTrash: array[0..3] of string = ('&','laquo;','raquo;','nbsp;');
....
function UrlsDataCorrector(const aData:string):string;
...
for J := Low(HtmlTrash) to High(HtmlTrash) do
UrlStrFull := StringReplace(UrlStrFull, HtmlTrash[J], '', [rfReplaceAll, rfIgnoreCase]);
...
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
|