Применеие поправок для файла по времени

[Slym]

type TStringArray=array of string;

function Split(Str:string;Delimiter:char):TStringArray;
var
  LazyParser:TStringList;
  i:integer;
begin
  LazyParser:=TStringList.Create;
  try
    LazyParser.Delimiter:=Delimiter;
    LazyParser.DelimitedText:=Str;
    SetLength(result,LazyParser.Count);
    for i:=0 to LazyParser.Count-1 do
      result[i]:=LazyParser[i];
  finally
    LazyParser.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  DiffData,Data:TStringList;
  StrSt,StrEnd,StrData:TStringArray;
  i,j:integer;
  StartDt,EndDt,AvgDt,Dt:TDateTime;
  Diff,Value:double;
  Str:string;
begin
  DecimalSeparator:='.';
  DiffData:=TStringList.Create;
  try
    DiffData.LoadFromFile('.\files\2ndfile.txt');
    Data:=TStringList.Create;
    try
      Data.LoadFromFile('.\files\1stfile.txt');
      for i:=0 to DiffData.Count-1 do
      begin
        StrSt:=Split(DiffData[i],',');
        if Length(StrSt)<>6 then Continue;
        StartDt:=EncodeDateTime(StrToInt(StrSt[4]), StrToInt(StrSt[3]),
            StrToInt(StrSt[2]), StrToInt(StrSt[0]), StrToInt(StrSt[1]),0,0);
        Diff:=StrToFloat(StrSt[5]);

        if i<DiffData.Count-1 then
        begin
          StrEnd:=Split(DiffData[i+1],',');
          if Length(StrEnd)<>6 then Continue;
          EndDt:=EncodeDateTime( StrToInt(StrEnd[4]), StrToInt(StrEnd[3]),
            StrToInt(StrEnd[2]), StrToInt(StrEnd[0]), StrToInt(StrEnd[1]),0,0);
        end else
        begin
          EndDt:=StartDt+AvgDt;
        end;
        AvgDt:=EndDt-StartDt;

        Caption:=IntToStr(i+1)+'/'+IntToStr(DiffData.Count);
        Application.ProcessMessages;
        for j:=0 to Data.Count-1 do
        begin
          StrData:=Split(Data[j],' ');
          if Length(StrData)<>5 then Continue;

          Dt:=EncodeDateTime(
            StrToInt('20'+copy(StrData[3],5,2)),
            StrToInt(copy(StrData[3],3,2)),
            StrToInt(copy(StrData[3],1,2)),
            StrToInt(copy(StrData[2],1,2)),
            StrToInt(copy(StrData[2],3,2)),
            StrToInt(copy(StrData[2],5,2)),0);

          if (Dt>=StartDt) and (Dt<=EndDt) then
          begin
            Value:=StrToFloat(StrData[4]);
            Value:=Value-Diff;
            Str:=Data[i];

            Str:=copy(Str,0,length(Str)-length(StrData[4]))+FormatFloat('00000.0',Value);
            Data[i]:=Str;
          end;
        end;
      end;

      Data.SaveToFile('.\files\Slym_resultfile.txt');
    finally
      Data.Free;
    end;
  finally
    DiffData.Free;
  end;
end;