Unit 'System' Package
[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] [#rtl]

MoveChar0

Move data till first zero character.

Declaration

Source position: systemh.inc line 927

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

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;
  or:=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.

Documentation generated on: Oct 02 2024