Анализ детализаций - подготовленные детализации и загрузка детализаций с помощью плагинов

Загрузить в виде текстового файла (готов к загрузке в Анализе детализаций)

Загрузить в виде Excel-файла

• Колонки могут идти в любой последовательности, а не только в той, которая представлена выше.
• Колонок может быть любое количество!
  Чем меньше - тем менее подробный и информативный анализ выдаст программа.
  Т.е., даже если в подготовленной детализации будет только одна колонка "Абонент" (Abonent), то программа сможет показать количество вызовов на каждого абонента и связать номера телефонов со справочниками. А имея на входе только колонки "Дата" и "Стоимость" (CallDateTime и Cost) можно получить отчеты показывающие распределение расходов по дням, дням недели и по времени суток!
  
  Но, все таки, желательно использовать как минимум эти колонки:
  | PhoneNum | CallDateTime | Abonent | Cost |
  для того, чтобы получить более или менее информативный результат.

var
  CallRec : TCallRec;
  i  : integer;
  SL : TStringList;
  RE : TRegExp; // Это переменная для работы с регулярными выражениями
begin
  SL := TStringList.Create;
  RE := TRegExp.Create;
  try
    // Загружаем детализацию из файла, имя которого передается плагину в переменной DetailFileName
    SL.LoadFromFile (DetailFileName);
    // Создаем регулярное выражение для поиска и извлечения информации из строки с информацией о вызове
    RE.Expression := '^(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)\t(.*?)$';
    // Начинаем парсинг детализации не с первой, а со второй строки, т.к. мы заранее знаем,
    // что в первой строке содержатся заголовки столбцов
    for i := 1 to SL.Count-1 do
    begin
      // Если пользователь во время загрузи детализации нажал кнопку "Остановить"
      // то предопределенная переменная Processing (тип boolean) примет значение FALSE
      // Это надо отследить и прервать загрузку.
      if not Processing then Break;
      // Если регулярное выражение удалось применить к тексту (очередной строке в детализации) то...
      if RE.Exec (SL[i]) then
      begin
        // Очищаем переменную CallRec
        EmptyCallRec(CallRec);

        // Запонляем переменную CallRec данными. Описание переменных см. выше,
        // в разделе "Подготовленная детализация"
        CallRec.PhoneNum      := RE.Match[01];  // Номер телефона сотрудника
        CallRec.Service       := RE.Match[02];  // Название услуги, как оно будет показано в детализации
        CallRec.ServicePrep   := RE.Match[03];  // Подготовленное название услуги
        CallRec.CallDateTime  := RE.Match[04];  // Дата и время вызова
        CallRec.Abonent       := RE.Match[05];  // Номер абонента
        CallRec.AbonentPrep   := RE.Match[06];  // Номер абонента подготовленный для анализа
        CallRec.Duration      := StrToIntDef(RE.Match[07], 0); // Секунды или байты
        CallRec.Direction     := RE.Match[08];  // Направление вызова (входящий, исходящий)
        CallRec.ZonePC        := RE.Match[09];  // Зона предприятия связи (роуминг)
        CallRec.ZoneVTK       := RE.Match[10];  // Зона внешней телефонной компании (межгород)
        CallRec.local_MG_roum := RE.Match[11];  // Флаг типа звонка: местный, роуминговый или междугородний
        CallRec.Cost          := StrToFloatDef(RE.Match[12], 0); // Стоимость

        // Отправляем переменную CallRec процедуре, которая занимается загрузкой информации в базу данных
        // Одновременно, вторым параметром, передаем процент выполненной работы
        // (как соотношение номера текущей строки к общему количеству строк в файле детализации)
        LoadCallBack (CallRec, Trunc(i/SL.Count*100)+1);
      end;
    end;
   finally
     SL.Free;
     RE.Free;
   end;
   // Показываем совершенно необязательное окошко сообщающее об окончании загрузки.
   ShowMessage('Загрузка детализации успешно завершена!');
end.

Загрузить плагин в виде файла

  TCallRec = packed record
    PhoneNum       : string;
    CallDateTime   : string;
    Abonent        : string;
    AbonentPrep    : string;
    Duration       : cardinal;
    Direction      : string;
    CallType       : string;
    Service        : string;
    ServicePrep    : string;
    SubService     : string;
    ZonePC         : string;
    ZoneVTK        : string;
    local_MG_roum  : string;
    Cost           : currency;
  end;

procedure LoadCallBack (const CallRec: TCallRec; LoadPercent: integer);