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

fpspreadsheet: Overload also worksheet *function* WriteCellValueAsString.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5729 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-01-29 16:09:52 +00:00
parent fee22c947f
commit 4938bf8ec4
1 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
components/fpspreadsheet/source/common/fpspreadsheet.pas
View File

@ -207,6 +207,8 @@ type
procedure WriteBoolValue(ACell: PCell; AValue: Boolean); overload; procedure WriteBoolValue(ACell: PCell; AValue: Boolean); overload;
function WriteCellValueAsString(ARow, ACol: Cardinal; AValue: String): PCell; overload; function WriteCellValueAsString(ARow, ACol: Cardinal; AValue: String): PCell; overload;
function WriteCellValueAsString(ARow, ACol: Cardinal; AValue: String;
const AFormatSettings: TFormatSettings): PCell; overload;
procedure WriteCellValueAsString(ACell: PCell; AValue: String); overload; procedure WriteCellValueAsString(ACell: PCell; AValue: String); overload;
procedure WriteCellValueAsString(ACell: PCell; AValue: String; procedure WriteCellValueAsString(ACell: PCell; AValue: String;
const AFormatSettings: TFormatSettings); overload; const AFormatSettings: TFormatSettings); overload;
@ -4886,6 +4888,27 @@ begin
WriteCellValueAsString(Result, AValue); WriteCellValueAsString(Result, AValue);
end; end;
{@@ ----------------------------------------------------------------------------
Writes data defined as a string into a cell. Depending on the structure of the
string, the worksheet tries to guess whether it is a number, a date/time or
a text and calls the corresponding writing method.
@param ARow Row index of the cell
@param ACol Column index of the cell
@param AValue Value to be written into the cell given as a string. Depending
on the structure of the string, however, the value is written
as a number, a date/time or a text.
@param AFormatSettings FormatSettings record used for conversion of strings
with date/time, numbers etc.
@return Pointer to the cell
-------------------------------------------------------------------------------}
function TsWorksheet.WriteCellValueAsString(ARow, ACol: Cardinal;
AValue: String; const AFormatSettings: TFormatSettings): PCell;
begin
Result := GetCell(ARow, ACol);
WriteCellValueAsString(Result, AValue, AFormatSettings);
end;
{@@ ---------------------------------------------------------------------------- {@@ ----------------------------------------------------------------------------
Writes data defined as a string into a cell. Depending on the structure of the Writes data defined as a string into a cell. Depending on the structure of the
string, the worksheet tries to guess whether it is a number, a date/time or string, the worksheet tries to guess whether it is a number, a date/time or