Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
subjects:programming:pascal:standard_functions [2023/04/25 16:52] ¶ [Пример замены] |
subjects:programming:pascal:standard_functions [2023/04/25 17:32] (текущий) ¶ [Пример замены] |
||
|---|---|---|---|
| Строка 61: | Строка 61: | ||
| ==== Пример замены ==== | ==== Пример замены ==== | ||
| Можно самому написать функцию, которая бы заменяла подстроку в строе. Например, вот так: | Можно самому написать функцию, которая бы заменяла подстроку в строе. Например, вот так: | ||
| - | <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 | ||
| Строка 85: | Строка 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> | ||
Записаться на занятия к репетитору