anchor.diff:  /// /////////////////////////////////////////////////////////////////////////////
   
   procedure TMultiJCTableData.LoadToTable();
  -var i, j: Integer;
  -  LI: TListItem;
  +var LI: TListItem;
   begin
     Self.LV.Clear();
   
  -  for i := 0 to MultiJCDb.Count - 1 do
  +  for var i := 0 to MultiJCDb.Count - 1 do
     begin
       LI := Self.LV.Items.Add;
       LI.Caption := IntToStr(i);
  -    for j := 0 to Self.LV.Columns.Count - 2 do
  +    for var j := 0 to Self.LV.Columns.Count - 2 do
         LI.SubItems.Add('');
   
       try
  
positive.code:   Self.LV.Items[line].SubItems[1] := IntToStr(mJC.state.JCIndex);
  
    // jednotlive jizdni cesty
    str := '';
    for i := 0 to mJCData.JCs.Count - 1 do
    begin
      if (JCDb.GetJCByID(mJCData.JCs[i]) <> nil) then
        str := str + '(' + JCDb.GetJCByID(mJCData.JCs[i]).name + '), '
      else
        str := str + '(neexistujici JC), ';
    end;
    Self.LV.Items[line].SubItems[2] := str;
  
    // variantni body
    str := '';
    for i := 0 to mJCData.vb.Count - 1 do
      str := str + Blocks.GetBlkName(mJCData.vb[i]) + ', ';
    Self.LV.Items[line].SubItems[3] := str;
  end;
  
  /// /////////////////////////////////////////////////////////////////////////////
  
negative.code: 
  implementation
  
  uses TMultiJCDatabase, TechnologieMultiJC, BlockDb, fMain, TJCDatabase, StrUtils;
  
  /// /////////////////////////////////////////////////////////////////////////////
  
  