Описание:
Функция StringOfChar создает новую
строку длиной RepeatCount, заполненную символами RepeatCharacter.
Эта функция избавляет вас от необходимости
создания цикла или утомительного ручного набора.
Пример кода:
var
text, line : string;
begin
// Write a heading with -'s as underline characters
text := '1.An introduction to life as we know it';
line := StringOfChar('-', Length(text));
// Display our underlined heading
ShowMessage(text);
ShowMessage(line);
end;
Результат выполнения:
1.An introduction to life as we know it
---------------------------------------