Модуль 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;