Subversion Repositories delphiutils

Compare Revisions

Regard whitespace Rev 92 → Rev 93

/trunk/Units/AsciiTable.pas
2,7 → 2,7
 
(*
* ASCII Table and CSV Generator Delphi Unit
* Revision 2022-07-11
* Revision 2022-07-15
*
* (C) 2022 Daniel Marschall, HickelSOFT, ViaThinkSoft
* Licensed under the terms of Apache 2.0
108,7 → 108,8
procedure SetItem(Index: Integer; const Value: TVtsAsciiTableLine);
public
function GetAnalysis: TVtsAsciiTableAnalysis;
procedure GetASCIITable(sl: TStrings; spaceBetween: integer=3);
procedure GetASCIITable(sl: TStrings; spaceBetween: integer=3); overload;
function GetASCIITable(spaceBetween: integer=3): string; overload;
procedure SaveASCIITable(filename: string; spaceBetween: integer=3);
procedure GetCSV(sl: TStrings);
procedure SaveCSV(filename: string);
194,6 → 195,19
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;