Subversion Repositories delphiutils

Compare Revisions

Regard whitespace Rev 94 → Rev 95

/trunk/Units/AsciiTable.pas
5,7 → 5,7
 
(*
* ASCII Table and CSV Generator Delphi Unit
* Revision 2023-12-08
* Revision 2023-12-07
*
* (C) 2022 Daniel Marschall, HickelSOFT, ViaThinkSoft
* Licensed under the terms of Apache 2.0
192,8 → 192,8
for j := 0 to VTS_ASCII_TABLE_COLS-1 do
begin
len := Length(objLine.Cont[j]);
if TryStrToFloat(RoundTo(objLine.Cont[j],2), itmp) and objLine.DoSum[j] then
result.Sum[j] := result.Sum[j] + itmp;
if TryStrToFloat(objLine.Cont[j], itmp) and objLine.DoSum[j] then
result.Sum[j] := RoundTo(result.Sum[j] + itmp,2);
if len > result.MaxLen[j] then
result.MaxLen[j] := len;
if len > 0 then