Reference for package '#rtl'

MoveChar0

Move data till first zero character

Declaration

Source position: systemh.inc line 884

  procedure MoveChar0(const buf1; var buf2; len: SizeInt);

Description

MoveChar0 moves Count bytes from buf1 to buf2, and stops moving if a zero character is found.

Errors

No checking is done to see if Count stays within the memory allocated to the process.

See also

Name Description
Move Move data from one location in memory to another

Example

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.