GitHub-Mirror/x2utils
1
0
Fork 0
mirror of synced 2024-12-22 09:13:07 +01:00
Code Issues Projects Releases Wiki Activity

Added: ReplacePart function

Browse Source
This commit is contained in:
Mark van Renswoude 2005-06-28 13:06:16 +00:00
parent 8374bc2fee
commit 7edc96e0a4
1 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
X2UtStrings.pas
View File

@ -114,9 +114,13 @@ type
function ChildPathEx(var AChild, AParent: String;
const AFailIfSame: Boolean = False): Boolean;
function ReplacePart(const ASource: String; const AStart, ALength: Integer;
const AReplace: String): String;
implementation
uses
SysUtils;
SysUtils,
Windows;
function FormatSize(const ABytes: Int64; AKeepBytes: Boolean = False): String;
const
@ -379,5 +383,35 @@ begin
(Length(AChild) > Length(AParent)));
end;
function ReplacePart(const ASource: String; const AStart, ALength: Integer;
const AReplace: String): String;
var
iSrcLength: Integer;
iLength: Integer;
iDiff: Integer;
iDest: Integer;
begin
iSrcLength := Length(ASource);
iLength := Length(AReplace);
iDiff := iLength - ALength;
iDest := 1;
SetLength(Result, iSrcLength + iDiff);
// Write first part
CopyMemory(@Result[iDest], @ASource[1], AStart - 1);
Inc(iDest, AStart - 1);
// Write replacement
CopyMemory(@Result[iDest], @AReplace[1], iLength);
Inc(iDest, iLength);
// Write last part
CopyMemory(@Result[iDest], @ASource[AStart + ALength],
iSrcLength - AStart - (ALength - 1));
end;
end.