/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/StringMethods.pas
18 строк
759 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Строки. Методы класса string var s: string := ' Pascal__NET '; s1: string := 'NET'; begin writeln('Исходная строка: ''',s,''''); s := s.Trim; writeln('После вызова s.Trim: ''',s,''''); var p := s.IndexOf(s1); // Индексация - с нуля writelnFormat('Позиция подстроки ''{0}'' в строке ''{1}'' равна {2}',s1,s,p); s := s.Remove(6,2); writeln('После удаления символов __: ',s); s := s.Insert(6,'ABC.'); writeln('После вставки подстроки ''ABC.'': ',s); writeln('Первая часть строки: ',s.Substring(0,9)); writeln('Последняя часть строки: ',s.Substring(10,3)); end.