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

  → / @ 92

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 93 → Rev 92

/trunk/Units/AsciiTable.pas
2,7 → 2,7
(*
* ASCII Table and CSV Generator Delphi Unit
* Revision 2022-07-15
* Revision 2022-07-11
*
* (C) 2022 Daniel Marschall, HickelSOFT, ViaThinkSoft
* Licensed under the terms of Apache 2.0
108,8 → 108,7
procedure SetItem(Index: Integer; const Value: TVtsAsciiTableLine);
public
function GetAnalysis: TVtsAsciiTableAnalysis;
procedure GetASCIITable(sl: TStrings; spaceBetween: integer=3); overload;
function GetASCIITable(spaceBetween: integer=3): string; overload;
procedure GetASCIITable(sl: TStrings; spaceBetween: integer=3);
procedure SaveASCIITable(filename: string; spaceBetween: integer=3);
procedure GetCSV(sl: TStrings);
procedure SaveCSV(filename: string);
195,19 → 194,6
end;
end;
function TVtsAsciiTable.GetASCIITable(spaceBetween: integer): string;
var
sl: TStringList;
begin
sl := TStringList.Create;
try
GetASCIITable(sl, spaceBetween);
result := sl.Text;
finally
FreeAndNil(sl);
end;
end;
procedure TVtsAsciiTable.GetASCIITable(sl: TStrings; spaceBetween: integer=3);
var
analysis: TVtsAsciiTableAnalysis;