Subversion Repositories delphiutils

Rev

Rev 96 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 96 Rev 97
Line 3... Line 3...
3 
// Download:
 3 
// Download:
4 
// https://github.com/danielmarschall/delphiutils/blob/master/Units/AsciiTable.pas
 4 
// https://github.com/danielmarschall/delphiutils/blob/master/Units/AsciiTable.pas
5 
 
 5 
 
6 
(*
 6 
(*
7 
 * ASCII Table and CSV Generator Delphi Unit
 7 
 * ASCII Table and CSV Generator Delphi Unit
8 
 * Revision 2024-01-12
 8 
 * Revision 2024-02-08
9 
 *
 9 
 *
10 
 * (C) 2022-2024 Daniel Marschall, HickelSOFT, ViaThinkSoft
 10 
 * (C) 2022-2024 Daniel Marschall, HickelSOFT, ViaThinkSoft
11 
 * Licensed under the terms of Apache 2.0
 11 
 * Licensed under the terms of Apache 2.0
12 
 *)
 12 
 *)
13 
 
 13 
 
Line 284... Line 284...
284 
        width := width + analysis.MaxLen[j];
 284 
        width := width + analysis.MaxLen[j];
285 
      end;
 285 
      end;
286 
 
 286 
 
287 
      sLine := sLine + StringOfChar('-', Width);
 287 
      sLine := sLine + StringOfChar('-', Width);
288 
    end;
 288 
    end;
289 
    sl.Add(sLine);
 289 
    sl.Add(TrimRight(sLine));
290 
  end;
 290 
  end;
291 
end;
 291 
end;
292 
 
 292 
 
293 
function CsvQuoteStr(s: string): string;
 293 
function CsvQuoteStr(s: string): string;
294 
begin
 294 
begin
Line 329... Line 329...
329 
        firstcol := false
 329 
        firstcol := false
330 
      else
 330 
      else
331 
        sLine := sLine + ';';
 331 
        sLine := sLine + ';';
332 
      sLine := sLine + CsvQuoteStr(objLine.Cont[j]);
 332 
      sLine := sLine + CsvQuoteStr(objLine.Cont[j]);
333 
    end;
 333 
    end;
334 
    sl.Add(sLine);
 334 
    sl.Add(TrimRight(sLine));
335 
  end;
 335 
  end;
336 
end;
 336 
end;
337 
 
 337 
 
338 
function TVtsAsciiTable.GetItem(Index: Integer): TVtsAsciiTableLine;
 338 
function TVtsAsciiTable.GetItem(Index: Integer): TVtsAsciiTableLine;
339 
begin
 339 
begin