Модуль Strings

Копирует символы из одной строки в другую.

Объявление:

Function StrMove(Dest, Source : PChar; Count : Word) : PChar;

Режим:

Windows,  Protected,  Real

Замечание:

Функция StrMove копирует Count символов из строки Source в строку Dest и возвращает строку Dest. Source и Dest могут перекрываться.

Пример:

 { Пример программы для функций StrMove и StrDispose }
 
 { Размещаем строку в куче }
 
 Function StrNew(S : PChar) : PChar;
 Var L : Word;
     P : PChar;
 Begin
  If (S = NIL) Or (S^ = #0) Then StrNew:=NIL Else
   Begin
    L:=StrLen(S) + 1;
    GetMem(P, L);
    StrNew:=StrMove(P, S, L);
   End;
 End;
 
 { Освобождаем память, занятую строкой в куче }
 
 Procedure StrDispose(S : PChar);
 Begin
  If S<>NIL Then FreeMem(S, StrLen(S) + 1);
 End;