Правила форума
WriteBuf.PASЯзык:
Русский
English
{ Пример программы для процедуры WriteBuf }
{ Компилировать в режиме Windows }
{ Используйте русские фонты в Win32 }
uses WinCrt, Strings;
var
MyBuffer : PChar;
begin
GetMem(MyBuffer, 80);
MyBuffer := 'Пример использования WriteBuf';
WriteBuf(MyBuffer, StrLen(MyBuffer));
end.
{ Используйте русские фонты в Win32 }
uses WinCrt, Strings;
var
MyBuffer : PChar;
begin
GetMem(MyBuffer, 80);
MyBuffer := 'Пример использования WriteBuf';
WriteBuf(MyBuffer, StrLen(MyBuffer));
end.
::
::
::
