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

fpspreadsheet: Some clean-up: Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7555 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-07-22 09:07:59 +00:00
parent d0fe6490d8
commit 901b92fa72
17 changed files with 94 additions and 101 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/source/common/fpsutils.pas
View File

@ -491,7 +491,6 @@ var
p: Integer;
s: String;
f: TsRelFlags;
singleCell: Boolean = false;
begin
Result := True;
@ -499,7 +498,6 @@ begin
p := pos(':', AStr);
if p = 0 then //exit(false);
begin
singleCell := true;
Result := ParseCellString(AStr, AFirstcellRow, AFirstCellCol, f);
if not Result then exit;
ALastCellRow := AFirstCellRow;
@ -2355,7 +2353,7 @@ function RandomString(ALen: Integer): String;
var
i: Integer;
begin
SetLength(Result, ALen);
SetLength(Result{%H-}, ALen);
for i:=1 to ALen do
Result[i] := char(Random(26) + ord('a'));
end;
@ -2411,6 +2409,7 @@ var
arr1, arr2: TStringArray;
i: Integer;
begin
ARichText := nil;
p := pos(SEPARATOR, AValue);
if p = 0 then begin
AText := AValue;
@ -2438,6 +2437,7 @@ var
L: TStringList;
i: Integer;
begin
Result := nil;
L := TStringList.Create;
try
L.Delimiter := ADelimiter;