Zobrazení zdroje stránky StrMove

Zkopíruje znaky z jednoho řetězce do druhého.

;Deklarace
 function StrMove(Dest, Source: PChar; Count: Word): PChar;

;Režim
:Windows, Reálný, Chráněný

;Poznámky
:[[StrMove]] zkopíruje přesně Count znaků ze Source do Dest a vrátí Dest. Source a Dest se mohou překrývat.


Vzorový příklad

 {StrMove.PAS}
 {Vzorový příklad pro StrMove a StrDispose.}
 { Allokuje řetězec na haldě }
 uses Strings;
 function StrNew(S: PChar): PChar;
 var
   L: Word;
   P: PChar;
 begin
  StrNew := nil;
  if (S <> nil) and (S[0] <> #0) then
   begin
     L := StrLen(S) + 1;
     GetMem(P, L);
     StrNew := StrMove(P, S, L);
   end;
 end;
 { Uvolní řetězec z haldy }
 procedure StrDispose(S: PChar);
 begin
   if S <> nil then FreeMem(S, StrLen(S) + 1);
 end;
 var
   S: PChar;
 begin
   StrNew (S);
   StrDispose (S);
 end.

[[Category:String]]