Правила форума
WriteBuf.PASLanguage:
Русский
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.
::
::
::
