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

fpspreadsheet: Fix comiliation error w/ fpc-trunk (issue 0027978)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4099 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-04-27 09:44:21 +00:00
parent 741f86a425
commit de39db4c01
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpspreadsheet/fpstypes.pas
View File

@ -1059,9 +1059,11 @@ end;
procedure TsNumFormatParams.SetCurrSymbol(AValue: String);
var
section: TsNumFormatSection;
el: Integer;
s, el: Integer;
begin
for section in Sections do
for s:=0 to High(Sections) do
begin
section := Sections[s];
if (nfkCurrency in section.Kind) then
begin
section.CurrencySymbol := AValue;
@ -1069,6 +1071,7 @@ begin
if section.Elements[el].Token = nftCurrSymbol then
section.Elements[el].Textvalue := AValue;
end;
end;
end;
procedure TsNumFormatParams.SetDecimals(AValue: byte);