Правила форума
ReadBuf.PASЯзык:
Русский
English
{ Пример программы для функции ReadBuf }
{ Компилировать в режиме Windows }
uses WinCrt;
var
C : PChar;
begin
GetMem(C, 20);
C := #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;
WriteLn('Введите фразу длиной до 20 символов:');
ReadBuf(C, 20);
WriteLn('Вы ввели: ');
WriteLn(C);
end.
uses WinCrt;
var
C : PChar;
begin
GetMem(C, 20);
C := #0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0;
WriteLn('Введите фразу длиной до 20 символов:');
ReadBuf(C, 20);
WriteLn('Вы ввели: ');
WriteLn(C);
end.
::
::
::
