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: 
  implementation
  
  uses TMultiJCDatabase, TechnologieMultiJC, BlockDb, fMain, TJCDatabase, StrUtils;
  
  /// /////////////////////////////////////////////////////////////////////////////
  
  