Функция StrMove

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

Объявление:

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

Режим: Windows, Protected, Real

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

Пример программы: 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;

Сделать бесплатный сайт с uCoz