delphiutilsalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdistributeddpcstudiodpg2fastphpfileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → / @ 93

  → / @ 94

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Ignore whitespace Rev 93 → Rev 94

/trunk/Units/AsciiTable.pas
1,8 → 1,11
unit AsciiTable;
// Download:
// https://github.com/danielmarschall/delphiutils/blob/master/Units/AsciiTable.pas
(*
* ASCII Table and CSV Generator Delphi Unit
* Revision 2022-07-15
* Revision 2023-12-08
*
* (C) 2022 Daniel Marschall, HickelSOFT, ViaThinkSoft
* Licensed under the terms of Apache 2.0
21,54 → 24,56
objLine: TVtsAsciiTableLine;
begin
VirtTable := TVtsAsciiTable.Create(true);
VirtTable.Clear;
try
VirtTable.Clear;
// Create Test data
objLine := TVtsAsciiTableLine.Create;
objLine.SetVal(0, 'Fruit', taCenter);
objLine.SetVal(1, 'Amount', taCenter);
VirtTable.Add(objLine);
// Create Test data
objLine := TVtsAsciiTableLine.Create;
objLine.SetVal(0, 'Fruit', taCenter);
objLine.SetVal(1, 'Amount', taCenter);
VirtTable.Add(objLine);
VirtTable.AddSeparator;
VirtTable.AddSeparator;
objLine := TVtsAsciiTableLine.Create;
objLine.SetVal(0, 'Apple', taLeftJustify);
objLine.SetVal(1, '123', taRightJustify);
VirtTable.Add(objLine);
objLine := TVtsAsciiTableLine.Create;
objLine.SetVal(0, 'Apple', taLeftJustify);
objLine.SetVal(1, '123', taRightJustify);
VirtTable.Add(objLine);
objLine := TVtsAsciiTableLine.Create;
objLine.SetVal(0, 'Kiwi', taLeftJustify);
objLine.SetVal(1, '1', taRightJustify);
VirtTable.Add(objLine);
objLine := TVtsAsciiTableLine.Create;
objLine.SetVal(0, 'Kiwi', taLeftJustify);
objLine.SetVal(1, '1', taRightJustify);
VirtTable.Add(objLine);
objLine := TVtsAsciiTableLine.Create;
objLine.SetVal(0, 'Asparagus (green)', taLeftJustify);
objLine.SetVal(1, '9999', taRightJustify);
VirtTable.Add(objLine);
objLine := TVtsAsciiTableLine.Create;
objLine.SetVal(0, 'Asparagus (green)', taLeftJustify);
objLine.SetVal(1, '9999', taRightJustify);
VirtTable.Add(objLine);
objLine := TVtsAsciiTableLine.Create;
objLine.SetVal(0, 'Asparagus (white)', taLeftJustify);
objLine.SetVal(1, '999', taRightJustify);
VirtTable.Add(objLine);
objLine := TVtsAsciiTableLine.Create;
objLine.SetVal(0, 'Asparagus (white)', taLeftJustify);
objLine.SetVal(1, '999', taRightJustify);
VirtTable.Add(objLine);
VirtTable.AddSeparator;
VirtTable.AddSumLine;
VirtTable.AddSeparator;
VirtTable.AddSumLine;
// Create ASCII table
Memo1.Clear;
VirtTable.GetASCIITable(Memo1.Lines);
// Create ASCII table
Memo1.Clear;
VirtTable.GetASCIITable(Memo1.Lines);
// Save ASCII table
VirtTable.SaveASCIITable('Order.txt');
// Save ASCII table
VirtTable.SaveASCIITable('Order.txt');
// Create CSV
Memo2.Clear;
VirtTable.GetCSV(Memo2.Lines);
// Create CSV
Memo2.Clear;
VirtTable.GetCSV(Memo2.Lines);
// Save CSV
VirtTable.SaveCSV('Order.csv');
VirtTable.Free;
// Save CSV
VirtTable.SaveCSV('Order.csv');
finally
FreeAndNil(VirtTable);
end;
end;
}
99,7 → 104,7
TVtsAsciiTableAnalysis = record
MaxLen: array[0..VTS_ASCII_TABLE_COLS-1] of integer;
Used: array[0..VTS_ASCII_TABLE_COLS-1] of boolean;
Sum: array[0..VTS_ASCII_TABLE_COLS-1] of integer;
Sum: array[0..VTS_ASCII_TABLE_COLS-1] of extended;
end;
TVtsAsciiTable = class(TObjectList{<TVtsAsciiTableLine>})
125,6 → 130,9
implementation
uses
Math;
{ TVtsAsciiTable }
function TVtsAsciiTable.Add(AObject: TVtsAsciiTableLine): Integer;
152,7 → 160,7
begin
if analysis.Sum[j] <> 0 then
begin
objLine.SetVal(j, IntToStr(analysis.Sum[j]), taRightJustify, ' ');
objLine.SetVal(j, FloatToStr(RoundTo(analysis.Sum[j],2)), taRightJustify, ' ');
found := true;
end;
end;
159,7 → 167,7
if found then
Inherited Add(objLine)
else
objLine.Free;
FreeAndNil(objLine);
end;
function TVtsAsciiTable.GetAnalysis: TVtsAsciiTableAnalysis;
168,7 → 176,7
i: Integer;
objLine: TVtsAsciiTableLine;
len: Integer;
itmp: integer;
itmp: extended;
begin
for j := 0 to VTS_ASCII_TABLE_COLS-1 do
begin
184,7 → 192,7
for j := 0 to VTS_ASCII_TABLE_COLS-1 do
begin
len := Length(objLine.Cont[j]);
if TryStrToInt(objLine.Cont[j], itmp) and objLine.DoSum[j] then
if TryStrToFloat(RoundTo(objLine.Cont[j],2), itmp) and objLine.DoSum[j] then
result.Sum[j] := result.Sum[j] + itmp;
if len > result.MaxLen[j] then
result.MaxLen[j] := len;
392,4 → 400,4
Self.DoSum[index] := ADoSum;
end;
end.
end.