Функция для замены вхождений подстроки в оригинальной строке.
function ReplaceString(sOriginal, sFrom, sTo:string; bReplaceAll, bIgnoreCase: boolean): string;
Параметр |
Тип |
Значение |
---|---|---|
sOriginal |
string |
оригинальная исходная строка; |
sFrom |
string |
что нужно искать в оригинальной строке; |
sTo |
string |
на что нужно заменять найденное; |
bReplaceAll |
boolean |
true, заменять все найденные вхождения, false — если только первое; |
bIgnoreCase |
boolean |
игнорировать регистр букв. Большие и маленькие буквы при поиске будут считаться равноценными. |
Возвращает изменённую строку.
const
sOriginal = 'A vacation in a foreign land,\n' +
'Uncle Sam does the best he can.\n' +
'You''re in the army now,\n' +
'oh-oo-oh you''re in the army now.\n\n' +
'Now you remember what the draft man said,\n' +
'nothing to do all day but stay in bed.\n' +
'You''re in the army now,\n' +
'oh-oo-oh you''re in the army now.';
var
s: string;
begin
s := 'Replace \n to CRLF: ' + CRLF +
ReplaceString(sOriginal, '\n', CRLF, true, false);
mLogScript(s, '');
end.
[18:02:01] (Log "ReplaceString"): Replace \n to CRLF:
A vacation in a foreign land,
Uncle Sam does the best he can.
You're in the army now,
oh-oo-oh you're in the army now.
Now you remember what the draft man said,
nothing to do all day but stay in bed.
You're in the army now,
oh-oo-oh you're in the army now.