Правила форума
StrMove.PASЯзык:
Русский
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;
::
::
::
