Ошибка при парсинге csv файла

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, TAGraph, TASeries, TATransformations, TATools,
  Forms, Controls, Graphics, Dialogs, StdCtrls, DBGrids, Grids, ComCtrls,
  ExtCtrls, FileCtrl, EditBtn, Buttons, Arrow, csvdocument, TAChartAxis,
  Ipfilebroker, RTTICtrls, laz_synapse, ftpsend;

type

  { TForm1 }

  TForm1 = class(TForm)
    Arrow1: TArrow;
    btDrawAll: TButton;
    btLoad: TButton;
    btCompare: TButton;
    btShift: TButton;
    CATransformLeftAutoScaleAxisTransform1: TAutoScaleAxisTransform;
    CATransformRifgtAutoScaleAxisTransform1: TAutoScaleAxisTransform;
    Chart1: TChart;
    CGChecker: TCheckGroup;
    CATransformLeft: TChartAxisTransformations;
    CATransformRifgt: TChartAxisTransformations;
    CATransformBar2: TChartAxisTransformations;
    CATransformBar2AutoScaleAxisTransform1: TAutoScaleAxisTransform;
    CATransformBar1: TChartAxisTransformations;
    CATransformBar1AutoScaleAxisTransform1: TAutoScaleAxisTransform;
    CheckBox1: TCheckBox;
    FileListBox1: TFileListBox;
    Label1: TLabel;
    ListBox1: TListBox;
    ListView1: TListView;
    Memo1: TMemo;
    StringGrid1: TStringGrid;
    TrackBar1: TTrackBar;
    procedure btCompareClick(Sender: TObject);
    procedure btDrawAllClick(Sender: TObject);
    procedure btLoadClick(Sender: TObject);
    procedure CheckBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ListView1DblClick(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure UpdateFl;
  private
    { private declarations }
  public
    FTPSend: TFTPSend;
    { public declarations }
  end;

type csvLog=class(TCSVDocument)
  public
    Title,Date,Sample,Data:string;
    Combination: boolean;
    Units,Combi:array[0..16] of string;
    ur:integer;
    //загрузка данных и обработка шапки файла
    procedure FTPReadInfo(filename:string);
    //поиск № строки по тексту в первой колонке
    function RowSearch(text:string):Integer;
    //поиск № колонки по тексту и номеру строки
    function ColSearch(text:string;CRow:Integer):Integer;
end;

var
  Form1: TForm1;
  csv:csvLog;
  test,s0: string;
  syn1,syn2,syn9:integer;
  autoshift,combination:boolean;
  limits:array[1..10,1..2] of real;
  axisind:array[1..6] of Integer;
  const
  COLORS: array [0..15] of Integer =
    ($000080,$008000,$008080,$800000,$800080,$808000,$808080,$C0C0C0,$0000FF,$00FF00,$00FFFF,$FF0000,$FF00FF,$FFFF00,$000000,$F0CAA6);
implementation

{$R *.lfm}

{ TForm1 }

procedure csvLog.FTPReadInfo(filename:string);
var i,dr,cr: integer;
begin
  csv.Clear;
  //чтение из файла в режиме возможной докачки
  if Form1.FTPSend.RetrieveFile(filename,true) then Self.LoadFromStream(Form1.FTPSend.DataStream) else exit;
  //заголовок файла
  Title:='TITLE: '+Cells[1,RowSearch('TITLE')];
  //формирование даты
  dr:=RowSearch('TRG_TIME');
  Date:='TRG_TIME: '+Cells[3,dr]+'/'+Cells[2,dr]+'/20'+Cells[1,dr]+'   '+Cells[4,dr]+':'+Cells[5,dr]+':'+Cells[6,dr];
  //интервал замеров
  Sample:='TRG_SAMPLE: '+Cells[1,RowSearch('TRG_SAMPLE') ]+' ms';
  //массив заголовков данных
  ur:=RowSearch('UNIT');
  Combination:=false;
  Units[0]:='UNIT: ';
  for i:=1 to ColCount[ur] do
    begin
      Units[i]:=Cells[i,ur];
    end;
  //подсчет кол-ва строк с данными
  Data:='DATA: '+IntToStr(RowCount-ur-2)+' lines';
  //массив заголовков данных для комбинированного файла
  cr:=RowSearch('COMBI');
  if Cells[0,cr]='COMBI' then
  begin
    Combination:=true;
    Combi[0]:='COMBI: ';
    for i:=1 to ColCount[cr-1] do
      begin
        Combi[i]:=Cells[i,cr]+',';
      end;
  end;
end;

function csvLog.RowSearch(text:string):Integer;
var i:integer;
begin
  i:=0;
  while (Self.Cells[0,i]<>text) and (i<Self.RowCount-1) do inc(i);
    if i=Self.RowCount-2 then result:=-1;
   result:=i;
end;

function csvLog.ColSearch(text:string;CRow:Integer):Integer;
var i:integer;
begin
  i:=0;
  while (Self.Cells[i,CRow]<>text) and (i<Self.ColCount[CRow]-1) do inc(i);
    if i=(Self.ColCount[CRow]-2) then result:=-1;
    result:=i;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //создаем соединение с FTP
  FTPSend:=TFTPSend.Create;
  FTPSend.TargetHost:='172.16.170.11';
  FTPSend.UserName:='anonymous';
  FTPSend.Password:='';
  FTPSend.PassiveMode:=True;
  if FTPSend.Login then
    begin
      //получаем информацию об объектах в директории
      FTPSend.List(FTPSend.GetCurrentDir, false);
      //обновляем список
      UpdateFL;
    end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  csv.Free;
  FTPSend.Logout;
  FTPSend.Free;
end;

//обновление списка файлов
procedure TForm1.UpdateFl;
var LI: TlistItem;
    I: Integer;
begin
  ListView1.Items.BeginUpdate;
  try
   ListView1.Items.Clear;
    //создаем элемент для перехода на один уровень вверх
    LI:=ListView1.Items.Add;
    LI.Caption:='[...]';
    //заполняем список информацией об объектах в текущей директории
    for I := 0 to FTPSend.FtpList.Count-1 do
      begin
        LI:=ListView1.Items.Add;
        LI.Caption:=FTPSend.FtpList[i].FileName;
        if FTPSend.FtpList[i].Directory then
          Li.SubItems.Add('Папка')
        else
        Li.SubItems.Add('Файл');
        LI.SubItems.Add(IntToStr(FTPSend.FtpList[i].FileSize));
        LI.SubItems.Add((DateToStr(FTPSend.FtpList[i].FileTime)));
      end;
  finally
    ListView1.Items.EndUpdate;
  end;
end;

//обработка двойного клика в списке файлов
procedure TForm1.ListView1DblClick(Sender: TObject);
var b:boolean;
    s,line:string;
    i:integer;
begin
  btLoad.Enabled:=false;
  if not Assigned(ListView1.Selected) then Exit;
  //переход на уровень вверх
  if ListView1.ItemIndex=0 then
    b:=FTPSend.ChangeToParentDir
  else
    //смена директории на выбранную
    b:=FTPSend.ChangeWorkingDir(ListView1.Selected.Caption);
if b then
   begin
     //получаем данные об объектах в текущей директории
     FTPSend.List(EmptyStr,False);
     //обновляем список
     UpdateFL;
   end
else
   begin
     s:=FTPSend.FtpList[ListView1.Selected.Index-1].FileName;
     //если файл нужного формата (csv), выводим информацию
     if Pos('.csv',s)>0 then
       begin
         //активация кнопки "Загрузить"
         btLoad.Enabled:=true;
         csv:=csvLog.Create;
         csv.FTPReadInfo(s);
         Memo1.Clear;
         Memo1.Lines.Add(csv.Title);
         Memo1.Lines.Add(csv.Date);
         Memo1.Lines.Add(csv.Sample);
         //создание списка заголовков в зависимости от типа файла
         if Combination then
            for i:=0 to 16 do line:=line+csv.Combi[i]
         else
            for i:=0 to 16 do line:=line+csv.Units[i];
         Memo1.Lines.Add(line);
         Memo1.Lines.Add(csv.Data);
       end;
   end;
end;

//загрузка данных в таблицу
procedure LoadGrid(Grid:TStringGrid);
var col,row:integer;
begin
  Grid.BeginUpdate;
  Grid.Clear;
  Grid.RowCount:=csv.RowCount;
  Grid.ColCount:=csv.ColCount[csv.ur+1];
  for col:=0 to Grid.ColCount-1 do
    // "row+csv.ur" задает сдвиг по строкам для вывода только данных с первой строки таблицы
    for row:=0 to Grid.RowCount-1 do Grid.Cells[col,row]:=csv.Cells[col,row+csv.ur];
  Grid.EndUpdate;
end;

//замена точки на запятую, вычисление максимумов и точки синхронизации
procedure ReplGrid(Grid: TStringGrid);
var i,y,c,x:integer;
    curr: real;
begin
  syn1:=0; syn2:=0;
  for x:=1 to Grid.ColCount-1 do
    for y:=1 to 2 do limits[x,y]:=0.0; //обнуление массива пределов
  Grid.BeginUpdate;
  for i:=1 to Grid.RowCount-1 do begin
    for c:=1 to Grid.ColCount-1 do
        begin
          if Grid.Cells[c,i]='' then break;
          Grid.Cells[c,i]:=StringReplace(Grid.Cells[c,i],'.',',',[rfReplaceAll, rfIgnoreCase]);  //замена
          curr:=StrToFloat(Grid.Cells[c,i]);
          if curr>limits[c,1] then limits[c,1]:=curr; //максимум
          if curr<limits[c,2] then limits[c,2]:=curr; //минимум
          if (Grid.Col=8) and (curr<>0) and (syn1<>0) then syn1:=Grid.Row;   //точка синхронизации
        end;
  end;
  Form1.Memo1.Lines.Add(FloatToStr(limits[2,1])+'/'+FloatToStr(limits[2,2])+', '+FloatToStr(limits[3,1])+'/'+FloatToStr(limits[3,2]));
  Grid.EndUpdate;
end;

//отображение позиции трекбара
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Label1.Caption:=IntToStr(TrackBar1.Position);
end;

//отрисовка графика по таблице
procedure TForm1.btDrawAllClick(Sender: TObject);
var i,j:integer;
    ls: TLineSeries;
    trl,trr: TChartAxisTransformations;
begin
  Chart1.ClearSeries;                                       //все серии удаляются
  Chart1.AxisList[2].Visible:=false;
  Chart1.AxisList[0].Transformations.Destroy;
  trl:= TChartAxisTransformations.Create(Self);
  TAutoScaleAxisTransform.Create(Self).Transformations:=trl;//трансформация для левой оси
  Chart1.AxisList[0].Transformations:=trl;
  Chart1.AxisList[2].Transformations.Destroy;
  trr:= TChartAxisTransformations.Create(Self);
  TAutoScaleAxisTransform.Create(Self).Transformations:=trr;//трансформация для правой оси
  Chart1.AxisList[2].Transformations:=trr;
  for i := 1 to 6 do                       //создание новых серий
    begin
      ls := TLineSeries.Create(Self);
      Chart1.AddSeries(ls);
      if CGChecker.Checked[i-1] then     //проверяем, отмечена ли серия для отрисовки
        begin
          ls.SeriesColor := COLORS[i];
          ls.LinePen.Width := 2;
          ls.Legend.Visible:=true;
          ls.Title:=StringGrid1.Cells[i+1,0];
          //серии с большими максимумами привязываются к правой оси
          if (limits[i+1,1]>100) or (limits[i+1,2]<-100) then
            begin
              ls.AxisIndexY:=2;
              Chart1.AxisList[2].Visible:=true;
            end
          else ls.AxisIndexY:=0;
          //флаговые серии привязываются к 2-м нижним осям
    //      if i=7 then ls.AxisIndexY:=3;
    //      if i=8 then ls.AxisIndexY:=4;
          axisind[i]:=ls.AxisIndexY;   //запись в массив индексов осей
            for j := 1 to StringGrid1.RowCount-1 do
              begin
                if (StringGrid1.Cells[1,j]='') or (StringGrid1.Cells[i+1,j]='') then break;
                ls.AddXY(StrToFloat(StringGrid1.Cells[1,j]),StrToFloat(StringGrid1.Cells[i+1,j]));
              end;
        end;
    end;
  end;

//отрисовка вторичных серий и синхронизация
procedure TForm1.btCompareClick(Sender: TObject);
var csv2:csvLog;
    ccol,crow,i,c,x,urow,shift:Integer;
    ls2: TLineSeries;
begin
  shift:=0;
  x:=Chart1.SeriesCount;
  while x>6 do
    begin
      Chart1.DeleteSeries(Chart1.Series.Items[x-1]);  //удаление старых вторичных серий если есть
      x:=Chart1.SeriesCount;
    end;
  for c:=1 to 6 do
    begin
      ls2:=TLineSeries.Create(Self);        //создание новых серий
      Chart1.AddSeries(ls2);
      if CGChecker.Checked[c-1] then        //проверка на сравнение отмеченных серий
        begin
          ls2.SeriesColor:=COLORS[c];
          ls2.Legend.Visible:=false;
          ls2.LinePen.Width:=1;
          ls2.AxisIndexY:=axisind[c];
          if not(FileExists(FileListBox1.FileName)) then exit;    //TODO: FTP
          csv2:=csvLog.Create;
          csv2.LoadFromFile(FileListBox1.FileName);
          urow:=csv2.RowSearch('UNIT');
          //поиск нужной колонки по заголовку в соответствующем чекере
          ccol:=csv2.ColSearch(CGChecker.Items.Strings[c-1],urow);
          crow:=csv2.RowSearch('DATA 1');
          //если отмечена автосинхронизация, сравниваются точки синхронизации
          if autoshift then
          begin
            //поиск совпадающих меток
            for i:=crow to csv2.RowCount-1 do
              begin
                if (StrToInt(csv2.Cells[8,i])<>0) and (syn2<>0) then syn2:=i;
              end;
            if syn1<>syn2 then shift:=abs(syn1-syn2);
          end
          //при ручной синхронизации задается сдвиг по позиции трекбара
          else if abs(TrackBar1.Position)<(csv2.RowCount-urow+1) then shift:=abs(TrackBar1.Position);
          for i:=crow to StringGrid1.RowCount-1-shift do
            begin
              csv2.Cells[1,i]:=StringReplace(csv2.Cells[1,i],'.',',',[rfReplaceAll, rfIgnoreCase]);
              csv2.Cells[ccol,i+shift]:=StringReplace(csv2.Cells[ccol,i+shift],'.',',',[rfReplaceAll, rfIgnoreCase]);
              //обнуление пустых ячеек, если встречаются
              if csv2.Cells[1,i]='' then csv2.Cells[1,i]:='0';
              //сдвиг идет только по колонке с данными
              if csv2.Cells[ccol,i+shift]='' then csv2.Cells[ccol,i+shift]:='0';
              ls2.AddXY(StrToFloat(csv2.Cells[1,i]),StrToFloat(csv2.Cells[ccol,i+shift]));
            end;

        end;
    end;
  csv2.Free;
end;

//основная функция: чтение из файла, загрузка в таблицу, очистка, замена знака
//TODO: FTP
procedure TForm1.btLoadClick(Sender: TObject);
var i:integer;
begin
  btCompare.Enabled:=true;
  LoadGrid(StringGrid1);
  ReplGrid(StringGrid1);
  CGChecker.Caption:=s0;
  btDrawAll.Enabled:=true;
  CGChecker.Items.Clear;
  for i:=1 to 6 do
      begin
        CGChecker.Items.Add(StringGrid1.Cells[i+1,0]);
        if not Combination then CGChecker.Checked[i-1]:=true;
      end;
end;

//интерфейсная часть синхронизации
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
  if CheckBox1.Checked then
    begin
      autoshift:=true;
      btShift.Enabled:=false;
      TrackBar1.Position:=0;
      TrackBar1.Enabled:=false;
      Label1.Caption:='';
    end
  else
    begin
      autoshift:=false;
      btShift.Enabled:=true;
      TrackBar1.Enabled:=true;
    end;
end;

end.