Skip to content

MoveChar0¶

Move data till first zero character.

Declaration¶

Source position: systemh.inc line 937

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.