pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7901 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-23 14:28:05 +00:00
parent 0fc7589a41
commit bc37254519
9 changed files with 18 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/jvcllaz/run/JvCore/jvjclutils.pas
View File

@ -1300,7 +1300,7 @@ function FindUnusedFileName(FileName: string; const FileExt: string; NumberPrefi
implementation
uses
Math, Variants, LazFileUtils, typinfo, LclStrConsts,
Math, Variants, LazFileUtils, typinfo,
JvConsts;
(******************** NOT CONVERTED
@ -1589,7 +1589,7 @@ end;
StrToFloatDefIgnoreInvalidCharacters with some improvements made to decimal
separator handling.
}
function _JvSafeStrToFloat(const Str: string; aDecimalSeparator: Char; var OutValue: Extended): Boolean;
function _JvSafeStrToFloat(const Str: string; aDecimalSeparator: Char; out OutValue: Extended): Boolean;
var
LStr: String;
I: Integer;
@ -6791,7 +6791,8 @@ var
I, KeyLen: Integer;
C: Char;
B: Byte;
Utf8Result, Utf8Key: UTF8String;
Utf8Result: UTF8String = '';
Utf8Key: UTF8String;
begin
Result := '';
Utf8Key := UTF8Encode(Key);