function StrReplace(const Source, DestStr : String; Index : Word) : String; var i : word; begin for i := Index to Index + Length(Source) do if i <= Length(Dest) then DestStr[i] := Source[i-index] eles DestStr := DestStr + Source[i-index]; Result := DestStr; end;
copy
pos
delete
var
i : word;
begin
for i := Index to Index + Length(Source) do
if i <= Length(Dest) then
DestStr[i] := Source[i-index]
eles
DestStr := DestStr + Source[i-index];
Result := DestStr;
end;