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

12
components/fpspreadsheet/source/common/xlsbiff2.pas
View File

@ -559,7 +559,7 @@ var
lHeight: Word;
lOptions: Word;
Len: Byte;
lFontName: UTF8String;
lFontName: UTF8String = '';
isDefaultFont: Boolean;
begin
FFont := TsFont.Create;
@ -613,7 +613,7 @@ end;*)
procedure TsSpreadBIFF2Reader.ReadFormat(AStream: TStream);
var
len: byte;
fmtString: AnsiString;
fmtString: AnsiString = '';
nfs: String;
begin
// number format string
@ -798,7 +798,7 @@ var
L: Byte;
ARow, ACol: Cardinal;
XF: Word;
ansiStr: ansistring;
ansiStr: ansistring = '';
valueStr: UTF8String;
cell: PCell;
sheet: TsWorksheet;
@ -1099,7 +1099,7 @@ end;
procedure TsSpreadBIFF2Reader.ReadStringRecord(AStream: TStream);
var
len: Byte;
s: ansistring;
s: ansistring = '';
begin
// The string is a byte-string with 8 bit length
len := AStream.ReadByte;
@ -1948,7 +1948,7 @@ var
len: Integer;
s: string; //ansistring;
rec: TNumFormatRecord;
buf: array of byte;
buf: array of byte = nil;
begin
Unused(AFormatIndex);
@ -2239,7 +2239,7 @@ var
L: Byte;
AnsiText: ansistring;
rec: TBIFF2_LabelRecord;
buf: array of byte;
buf: array of byte = nil;
var
xf: Word;
begin