strmove.pas

 {StrMove.PAS}
 
 { Пример программы для функций 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;