{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;