WriteBuf.PAS

Язык:
Русский
English


 { Пример программы для процедуры WriteBuf }

{ Компилировать в режиме Windows }
{ Используйте русские фонты в Win32 }

uses WinCrt, Strings;

var
  MyBuffer : PChar;

begin
 GetMem(MyBuffer, 80);
  MyBuffer := 'Пример использования WriteBuf';
  WriteBuf(MyBuffer, StrLen(MyBuffer));
end.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //