Правила форума
StrMove (функция) (модуль Strings)Язык:
Русский
English
StrMove (функция) (модуль Strings)
Копирует символы из одной строки в другую.
Объявление
Function StrMove(Dest, Source : PChar; Count : Word) : PChar;
Режим
Windows, Real, Protected
Замечания
Функция StrMove копирует Count символов из строки Source в строку Dest и возвращает строку Dest. Source и Dest могут перекрываться.
Пример
Язык:
Русский
English
{ Пример программы для функций 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;
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;
::
::
::
