anchor.diff:  procedure TMultiJCTableData.UpdateLine(line: Integer);
   var mJCData: TMultiJCData;
     mJC: TMultiJC;
  -  i: Integer;
  -  str: string;
   begin
     mJC := MultiJCDb[line];
     mJCData := mJC.data;
  
positive.code: end;
  
  procedure TMultiJCTableData.UpdateTable();
  var i: Integer;
  begin
    for i := 0 to MultiJCDb.Count - 1 do
      if (MultiJCDb[i].changed) then
      begin
        try
  
negative.code: /// /////////////////////////////////////////////////////////////////////////////
  
  procedure TMultiJCTableData.LoadToTable();
  var LI: TListItem;
  begin
    Self.LV.Clear();
  
    for var i := 0 to MultiJCDb.Count - 1 do
    begin
      LI := Self.LV.Items.Add;
      LI.Caption := IntToStr(i);
      for var j := 0 to Self.LV.Columns.Count - 2 do
        LI.SubItems.Add('');
  
      try
  