Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
subjects:programming:pascal:standard_functions [2023/04/25 16:51] ¶ [Пример замены] |
subjects:programming:pascal:standard_functions [2023/04/25 17:32] (текущий) ¶ [Пример замены] |
||
---|---|---|---|
Строка 60: | Строка 60: | ||
==== Пример замены ==== | ==== Пример замены ==== | ||
- | <code pascal> | + | Можно самому написать функцию, которая бы заменяла подстроку в строе. Например, вот так: |
+ | <code pascal strReplace.pas> | ||
function strReplaceOnce(s_txt, s_from, s_to :string): string; | function strReplaceOnce(s_txt, s_from, s_to :string): string; | ||
var | var | ||
Строка 84: | Строка 85: | ||
begin | begin | ||
writeln(strReplaceOnce ('2-3 0123456789-23-23', '23', 'aaaB')); // 2-3 01aaaB456789-23-23 | writeln(strReplaceOnce ('2-3 0123456789-23-23', '23', 'aaaB')); // 2-3 01aaaB456789-23-23 | ||
- | writeln(strReplaceAll ('0123456789-23-23', '23', 'aaaB')); // 2-3 01aaaB456789-aaaB-aaaB | + | writeln(strReplaceAll ('2-3 0123456789-23-23', '23', 'aaaB')); // 2-3 01aaaB456789-aaaB-aaaB |
end. | end. | ||
</code> | </code> |