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

Fixed: WideString compatibility for Join function

Browse Source
This commit is contained in:
Mark van Renswoude 2014-10-28 18:56:47 +00:00
parent 319f0ba7e9
commit 868b443eae
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
X2UtStrings.pas
View File

@ -374,12 +374,12 @@ begin
begin
if not firstItem then
begin
Move(PChar(AGlue)^, resultPos^, glueLength);
Move(PChar(AGlue)^, resultPos^, glueLength * SizeOf(Char));
Inc(resultPos, glueLength);
end else
firstItem := False;
Move(PChar(ASource[itemIndex])^, resultPos^, itemLength);
Move(PChar(ASource[itemIndex])^, resultPos^, itemLength * SizeOf(Char));
Inc(resultPos, itemLength);
end;
end;
@ -419,8 +419,8 @@ var
iDest: Integer;
begin
iSrcLength := Length(ASource);
iLength := Length(AReplace);
iSrcLength := Length(ASource) * SizeOf(Char);
iLength := Length(AReplace) * SizeOf(Char);
iDiff := iLength - ALength;
iDest := 1;