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; |