Fillchar.PAS

Language:
Русский
English

   {Fillchar.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  {Sample code for the FillChar procedure.}

  var
    S: string[80];
  begin
    { Set a string to all spaces }
    FillChar(S, SizeOf(S), ' ');
    S[0] := #80;  { Set length byte }
  end.

Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //