/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/StringMethods2.pas
37 строк
888 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
var s1,s2: string; begin // Извлечение подстрок s1 := 'ABCDEFGH'; s2 := s1.Substring( {начальная_позиция = } 3); Writeln(s2); s2 := s1.Substring(3, {длина_подстроки = } 2); Writeln(s2); // Вставка, удаление и замена подстрок s1 := 'ABCDEFGH'; s2 := s1.Insert(2, 'xxx'); Writeln(s2); s2 := s2.Replace('x', '!'); Writeln(s2); s2 := s2.Remove(2, 3); Writeln(s2); s1 := 'слово слово слово'; s2 := s1.Replace('слов', 'молок'); Writeln(s2); // Удаление пробельных символов в концах строки s1 := ' xxx xxx '; Writeln('|', s1, '|'); s1 := s1.Trim; Writeln('|', s1, '|'); // Смена регистра символов s1 := 'абвгд'; s1 := s1.ToUpper; Writeln(s1); end.