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

* fpspreadsheet: cosmetic (comments)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3624 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2014-10-03 06:35:48 +00:00
parent f8c6435689
commit b4b0d78d52
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/fpspreadsheet/examples/db_import_export/main.pas
View File

@ -293,7 +293,7 @@ begin
FWorkbook.Options := FWorkbook.Options + [boVirtualMode]; FWorkbook.Options := FWorkbook.Options + [boVirtualMode];
FWorkbook.OnReadCellData := @ReadCellDataHandler; FWorkbook.OnReadCellData := @ReadCellDataHandler;
// Read the data from the spreadsheet file transparently into the dbf file // Read the data from the spreadsheet file transparently into the dbf file
// The data are not permanently available in the worksheet and do occupy // The data are not permanently available in the worksheet and do not occupy
// memory there - this is virtual mode. // memory there - this is virtual mode.
FWorkbook.ReadFromFile(DataFilename, fmt); FWorkbook.ReadFromFile(DataFilename, fmt);
// We close the ImportDataset after import process has finished: // We close the ImportDataset after import process has finished:
@ -362,15 +362,15 @@ var
fieldType: TFieldType; fieldType: TFieldType;
begin begin
// The first row (index 0) holds the field names. We temporarily store the // The first row (index 0) holds the field names. We temporarily store the
// field names in a string list because we don't know the data types of the // field names in a stringlist because we don't know the data types of the
// cell until we have not read the second row (index 1). // cell until we have read the second row (index 1).
if ARow = 0 then begin if ARow = 0 then begin
// We know that the first row contains string cells -> no further checks. // We know that the first row contains string cells -> no further checks.
FImportedFieldNames.Add(ADataCell^.UTF8StringValue); FImportedFieldNames.Add(ADataCell^.UTF8StringValue);
end end
else else
// We have to buffer the second row (index 1) as well. When it is fully read // We have to buffer the second row (index 1) as well. When it is fully read
// we can put everything together and create the dfb table. // we can put everything together and create the dbf table.
if ARow = 1 then begin if ARow = 1 then begin
if Length(FImportedRowCells) = 0 then if Length(FImportedRowCells) = 0 then
SetLength(FImportedRowCells, FImportedFieldNames.Count); SetLength(FImportedRowCells, FImportedFieldNames.Count);