paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 07:19:34 +01: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]); AddPoint(B[3]);
end end
else begin else begin
SplitBezier(B,left,right); SplitBezier(B,left{%H-},right{%H-});
SplitRecursive(left); SplitRecursive(left);
SplitRecursive(right); SplitRecursive(right);
end; end;
@ -572,7 +572,7 @@ begin
ReallocMem(Points, 0); ReallocMem(Points, 0);
end; end;
Arc2Bezier(X, Y, Width, Height, Angle1, Angle2, Rotation, B); Arc2Bezier(X, Y, Width, Height, Angle1, Angle2, Rotation, B{%H-});
Bezier2Polyline(B,Points,Count); Bezier2Polyline(B,Points,Count);
end; end;

4
components/lazutils/lazfileutils.pas
View File

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

2
components/lazutils/lazloggerbase.pas
View File

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

8
components/lazutils/lazutf8.pas
View File

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