/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/StringTypes.pas
17 строк
490 B
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
// Строки string, string[n], shortstring var s: string; // память, занимаемая s, зависит от ее длины s10: string[10]; // память под ss фиксирована ss: shortstring := s; f: file of string[10]; // f: file of string; - ошибка begin s := '12345678901234567890'; s10 := s; // обрезание writeln(s10); s += s; s += s; s += s; s += s; writeln(s); writeln('Длина строки = ',s.Length); end.