[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] |
Move data till first zero character
Source position: systemh.inc line 798
procedure MoveChar0( |
const buf1; |
var buf2; |
len: SizeInt |
); |
MoveChar0 moves Count bytes from buf1 to buf2, and stops moving if a zero character is found.
No checking is done to see if Count stays within the memory allocated to the process.
|
Move data from one location in memory to another |
Program Example109; { Program to demonstrate the MoveChar0 function. } Var Buf1,Buf2 : Array[1..80] of char; I : longint; begin Randomize; For I:=low(buf1) to high(buf1) do Buf1[i]:=chr(Random(16)+Ord('A')); Writeln('Original buffer'); writeln(Buf1); Buf1[Random(80)+1]:=#0; MoveChar0(Buf1,Buf2,80); Writeln('Randomly zero-terminated Buffer'); Writeln(Buf2); end.