/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/StringMethods1.pas
30 строк
1 KB
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'; Writeln(s1.Length); // Сравнение строк без учета регистра символов s1 := 'AAA'; s2 := 'aaa'; if String.Compare(s1, s2, {ignoreCase - без учета регистра} true) = 0 then Writeln('Строки совпадают с точностью до регистра букв'); // Определение вхождений подстрок s1 := 'Long string'; s2 := 'string'; if s1.EndsWith(s2) then Writeln('В конце строки s1 содержится подстрока, совпадающая с s2'); // Поиск индекса вхождения подстроки в строку Writeln(s1.IndexOf(s2)); // Извлечение подстрок s1 := 'ABCDEFGH'; s2 := s1.Substring( {начальная_позиция = } 3); Writeln(s2); s2 := s1.Substring(3, {длина_подстроки = } 2); Writeln(s2); end.