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

fpspreadsheet: Introduce fpspreadsheet exceptions.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6043 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-10-26 08:11:58 +00:00
parent 7e7044bb6f
commit cc891712d0
20 changed files with 109 additions and 107 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -522,7 +522,7 @@ var
begin
Clear;
if (AHTML[1] <> '<') then // just for simplification
raise Exception.Create('[THTMLAttrList.Parse] HTML tags expected.');
raise EFPSpreadsheet.Create('[THTMLAttrList.Parse] HTML tags expected.');
// Find first space
i := 1;
@@ -641,9 +641,9 @@ constructor TsHTMLAnalyzer.Create(AWorkbook: TsWorkbook; AFont: TsFont;
AText: String);
begin
if AWorkbook = nil then
raise Exception.Create('[TsHTMLAnalyzer.Create] Workbook required.');
raise EFPSpreadsheet.Create('[TsHTMLAnalyzer.Create] Workbook required.');
if AFont = nil then
raise Exception.Create('[TsHTMLAnalyzer.Create] Font required.');
raise EFPSpreadsheet.Create('[TsHTMLAnalyzer.Create] Font required.');
inherited Create(AText);
FWorkbook := AWorkbook;