WriteBuf.PAS

Language:
Русский
English

  {WriteBuf.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the WriteBuf procedure.}

  uses WinCrt;

 var
   MyBuffer: PChar;

 begin
   GetMem(MyBuffer, 80);
   MyBuffer := 'This is an example of WriteBuf';
   WriteBuf(MyBuffer, 30);
 end.

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