Add(MT_AddData,6805564,420,413)
{
 Count=10
 InputMT=0
 link(onAdd,2176402:doStr,[])
}
Add(StringTable,1119084,581,413)
{
 Left=370
 Top=10
 Width=305
 Height=240
 Columns=#4:Tab1|4:Tab2|4:Tab2|4:Tab4|4:Tab5|4:Tab6|4:Tab7|4:Tab8|4:Tab9|
}
Add(MT_String,2176402,525,413)
{
 link(onResult,1119084:doAdd,[])
}

procedure ThiMTStrTbl.ActionItm; // проверен

      Control.LVItems[Index,i] := gettok(s,_prop_StrDelimiter[1]);

      Control.LVSetItem(Row, Col, sd, iconum, [], I_SKIP, I_SKIP, 0);

ind := Control.LVCurItem; 

procedure ThiMTStrTbl.ActionItm; // проверен
var
  Row, Col, iconum: integer;
  fd: PData;
begin
  case Data.Data_type of
    data_null: exit;
  end;
  Row := Control.Count;
  case Mode of
    ITM_INSERT, ITM_REPLACE:
    begin
      Row := ReadInteger(Data, Null);   
      if (Row > Control.Count - 1) then exit;
    end;
  end;
  Col := 0;
  Control.LVItemInsert(Row, ');     

  if (Assigned(SmIlist) and (Control.LVStyle <> lvsIcon)) or
     (Assigned(LgIlist) and (Control.LVStyle = lvsIcon)) then
    iconum := ReadInteger(Data, Null)
  else
    iconum := I_SKIP;  
    
  while Col < Control.LVColCount do
  begin
    Control.LVSetItem(Row, Col, ReadString(Data, Null), iconum, [], I_SKIP, I_SKIP, 0);
    inc(Col);
  end;
  case Data.Data_type of
    data_null: exit;
  end;
  new(fd);
  FillChar(fd^, sizeof(TData), 0);
  CopyData(fd, @Data);
  Control.LVItemData[Row] := cardinal(fd);
end;

procedure ThiMTStrTbl.ActionItm; // проверен
var
  Row, Col: integer;
  fd: PData;
begin
  case Data.Data_type of
    data_null: exit;
  end;
  Row := Control.Count;
  case Mode of
    ITM_INSERT, ITM_REPLACE:
    begin
      Row := ReadInteger(Data, Null);   
      if (Row > Control.Count - 1) then exit;
    end;
  end;
  Col := 0;
  Control.LVItemInsert(Row, ');     

  while Col < Control.LVColCount do
  begin
    Control.LVItems[Row, Col] := ReadString(Data, Null);
    inc(Col);
  end;
  case Data.Data_type of
    data_null: exit;
  end;
  new(fd);
  FillChar(fd^, sizeof(TData), 0);

  if (Assigned(SmIlist) and (Control.LVStyle <> lvsIcon)) or
     (Assigned(LgIlist) and (Control.LVStyle = lvsIcon)) then
  begin
    Control.LVItemImageIndex[Row]:= ReadInteger(Data, Null);
  end;

  CopyData(fd, @Data);
  Control.LVItemData[Row] := cardinal(fd);
end;