mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 10:09:20 +02:00
* Fixed warnings.
git-svn-id: trunk@9513 -
This commit is contained in:
parent
5ed1f63b26
commit
d7d6b37158
@ -374,15 +374,14 @@ end;
|
|||||||
|
|
||||||
Function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string;
|
Function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string;
|
||||||
|
|
||||||
var i,j : SizeUInt;
|
var i,j,k : SizeUInt;
|
||||||
k : SizeInt;
|
|
||||||
|
|
||||||
begin
|
begin
|
||||||
j:=length(ASubText);
|
j:=length(ASubText);
|
||||||
i:=length(AText);
|
i:=length(AText);
|
||||||
if AStart>i then
|
if AStart>i then
|
||||||
aStart:=i+1;
|
aStart:=i+1;
|
||||||
k:=i-AStart+1;
|
k:=i+1-AStart;
|
||||||
if ALength> k then
|
if ALength> k then
|
||||||
ALength:=k;
|
ALength:=k;
|
||||||
SetLength(Result,i+j-ALength);
|
SetLength(Result,i+j-ALength);
|
||||||
|
@ -92,8 +92,8 @@ function CheckWin32Version(Major : Integer): Boolean;
|
|||||||
|
|
||||||
function CheckWin32Version(Major,Minor: Integer): Boolean;
|
function CheckWin32Version(Major,Minor: Integer): Boolean;
|
||||||
begin
|
begin
|
||||||
Result:=(Win32MajorVersion>Major) or
|
Result:=(Win32MajorVersion>dword(Major)) or
|
||||||
((Win32MajorVersion=Major) and (Win32MinorVersion>=Minor));
|
((Win32MajorVersion=dword(Major)) and (Win32MinorVersion>=dword(Minor)));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user