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 |