paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-14 09:20:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: less hints

Browse Source 
git-svn-id: trunk@65012 -
This commit is contained in:
mattias 2021-04-17 11:30:56 +00:00
parent 4927175872
commit c54a8fa65a
4 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/lazutils/graphmath.pp
View File

@ -514,7 +514,7 @@ var
AddPoint(B[3]);
end
else begin
SplitBezier(B,left,right);
SplitBezier(B,left{%H-},right{%H-});
SplitRecursive(left);
SplitRecursive(right);
end;
@ -572,7 +572,7 @@ begin
ReallocMem(Points, 0);
end;
Arc2Bezier(X, Y, Width, Height, Angle1, Angle2, Rotation, B);
Arc2Bezier(X, Y, Width, Height, Angle1, Angle2, Rotation, B{%H-});
Bezier2Polyline(B,Points,Count);
end;

4
components/lazutils/lazfileutils.pas
View File

@ -651,7 +651,7 @@ begin
begin
try
Len:=BufSize;
SetLength(Buf,Len+1);
SetLength(Buf{%H-},Len+1);
Len := FileRead(fHandle,Buf[1],Len);
if Len>0 then begin
@ -1109,7 +1109,7 @@ begin
{$ENDIF}
{$ENDIF}
if not UseQuickCompare then begin
SetLength(PathStr,APathLen);
SetLength(PathStr{%H-},APathLen);
System.Move(APath^,PathStr[1],APathLen);
end;

2
components/lazutils/lazloggerbase.pas
View File

@ -490,7 +490,7 @@ var
DestPos: Integer;
i: Integer;
begin
SetLength(Result,length(StringWithSpecialChars));
SetLength(Result{%H-},length(StringWithSpecialChars));
SrcPos:=1;
DestPos:=1;
while SrcPos<=length(StringWithSpecialChars) do begin

8
components/lazutils/lazutf8.pas
View File

@ -707,7 +707,7 @@ var
Len: Integer;
begin
Len:=UTF8Length(s);
SetLength(Result,Len*2);
SetLength(Result{%H-},Len*2);
if Len=0 then exit;
UTF8ToDoubleByte(PChar(s),length(s),PByte(Result));
end;
@ -990,7 +990,7 @@ var
end;
begin
SetLength(Result, SourceLen);
SetLength(Result{%H-}, SourceLen);
if SourceLen=0 then exit;
SourceCopied:=SourceStart;
Source:=SourceStart;
@ -1259,7 +1259,7 @@ begin
if (P<PE) then
begin
CharLen := UTF8CodepointSize(P);
SetLength(Capital, CharLen);
SetLength(Capital{%H-}, CharLen);
System.Move(P^, Capital[1], CharLen); // Copy one codepoint to Capital,
Capital := UTF8UpperCase(Capital); // UpperCase it
System.Move(Capital[1], P^, CharLen); // and copy it back.
@ -3110,7 +3110,7 @@ function UTF8ReverseString(p: PChar; const ByteCount: LongInt): string;
var
CharLen, rBytePos: LongInt;
begin
SetLength(Result, ByteCount);
SetLength(Result{%H-}, ByteCount);
rBytePos := ByteCount + 1;
while (rBytePos > 1) do
begin