Вверх ↑
Ответов: 5227
Рейтинг: 587
#1: 2022-05-20 13:58:06 ЛС | профиль | цитата
Добавил ещё пару методов, пожалуй уже достаточно

*doAddSheet=Метод добовляет страницу в документ, имя страницы передаётся в потоке|1|
*doDeleteSheet=Метод удаляет активную страницу из документа XLS|1|




--- Добавлено в 2022-05-20 14:10:12

Не знаю конечно интересно или нет но в методе Add добавил проверку на отсутствие колонок. Если истина то создаются согластно полученной строки
Ну как бы ну нет заголовков ну виг с ними, что из за этого типа данные не получать
const
  alf = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
.....

procedure THIStringTableEx.Add;
var
  s:string;
  i:byte;

  procedure AddColums;
  var
    j: integer; dt: TData;
  begin
    for j := 1 to Length(s) do
      if s[j] = _prop_StrDelimiter then
        Control.LVColAdd(alf[Control.LVColCount+1],taLeft,80);
  end;

begin
  if _prop_StrDelimiter = '' then
   _prop_StrDelimiter := ' ';
  s := Data + _prop_StrDelimiter;

  if Control.LVColCount = 0 then
    AddColums;

--- Добавлено в 2022-05-20 14:25:43

Так то библиотека обширна, всё необходимое присутствует

карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Редактировалось 3 раз(а), последний 2022-05-20 14:25:43