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

fpspreadsheet: Some more ooxml fixes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1863 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-08-29 13:01:53 +00:00
parent 54e28dd0db
commit 054f1bacde
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/fpspreadsheet.pas
View File

@ -398,7 +398,7 @@ var
lStr: string; lStr: string;
begin begin
lStr := ''; lStr := '';
if ACol < 26 then lStr := Char(ACol+54); if ACol < 26 then lStr := Char(ACol+65);
Result := Format('%s%d', [lStr, ARow+1]); Result := Format('%s%d', [lStr, ARow+1]);
end; end;

4
components/fpspreadsheet/xlsxooxml.pas
View File

@ -493,7 +493,7 @@ begin
CellPosText := TsWorksheet.CellPosToText(ARow, ACol); CellPosText := TsWorksheet.CellPosToText(ARow, ACol);
FSheets[FCurSheetNum] := FSheets[FCurSheetNum] + FSheets[FCurSheetNum] := FSheets[FCurSheetNum] +
Format(' <c r="%s" t="s">', [CellPosText]) + LineEnding + Format(' <c r="%s" t="s">', [CellPosText]) + LineEnding +
' <v>2</v>' + LineEnding + Format(' <v>%s</v>', [AValue]) + LineEnding +
' </c>' + LineEnding; ' </c>' + LineEnding;
end; end;
@ -508,7 +508,7 @@ begin
CellPosText := TsWorksheet.CellPosToText(ARow, ACol); CellPosText := TsWorksheet.CellPosToText(ARow, ACol);
FSheets[FCurSheetNum] := FSheets[FCurSheetNum] + FSheets[FCurSheetNum] := FSheets[FCurSheetNum] +
Format(' <c r="%s">', [CellPosText]) + LineEnding + Format(' <c r="%s">', [CellPosText]) + LineEnding +
' <v>1</v>' + LineEnding + Format(' <v>%f</v>', [AValue]) + LineEnding +
' </c>' + LineEnding; ' </c>' + LineEnding;
end; end;