функція concat
Рядки, які складаються з символів цифр, можна перетворити в числа.
Val (S. String; var Value; var Code: Integer);
де S - рядок, яка перетворюється в число;
Value - змінна типу Integer або Real;
Code - змінна цілого типу, яка визначає успішність перетворення.
Якщо змінна Code дорівнює нулю, то перетворення пройшло успішно. Якщо Code¹0, то це номер позиції в рядку де стоїть перший помилковий символ.
var num, c: integer;
writeln ( 'Value =', num, 'Code =', c); // Виведено Value = 150 Code = 0
var num, c: integer;
writeln ( 'Value =', num, 'Code =', c); // Помилка в другому символі!
// Виведено Value = 1 Code = 2
Зворотна операція для Val. Числа перетворюються в рядки, які складаються з символів цифр.
Str (Value [. Width [. Decimals]]; var S. string);
де Value - змінна цілого або дійсного типу, значення якої перетворюється в рядок;
Width - необов'язковий параметр, який визначає кількість символів в створюваній рядку;
Decimals - необов'язковий параметр, який визначає кількість символів після десяткового дробу;
S - рядок, яка створюється.
writeln (st); // Виведено 160.24
Функція Concat - використовується для об'єднання (конкатенації) довільної кількості рядків. Вона дозволяє дописати одину рядок в кінець іншого.
Concat (s1 [, s2. Sn]: string): string;
Квадратні дужки означають, що змінні s2. sn необов'язкові.
st: = Concat ( 'City', 'Odessa!'); // st = 'City Odessa!';
Використання оператора + має той же ефект, що і використання функції Concat.
st: = 'City' + 'Odessa!'; // st = 'City Odessa!';
Оператор + виконується швидше, ніж функція Concat.
Приклад. Підрахувати в заданому рядку ( 'BABABB ABBBA') кількість всіх символів 'В' і видалити з неї ті символи 'В', яким передують (у вхідному рядку) символи 'А'.
Проста задача підрахунку ускладнена вимогою видалення певних символів. Поєднання цих двох завдань в одному циклі не дуже зручно, так як для підрахунку символів краще застосувати цикл з параметром
For i: = 1 to length (z) do. ;,
а для видалення символів - універсальний цикл
while Pos (. z)<>0 do.
const mark: Char = Chr (0); // Chr (0) - Недрукований символ