Table.Insert(Position:Integer; Map:String; Table:Dataset) : Integer
Вставить строки из датасета

Метод Table.Insert вставляет перед строкой Position все строки из Source. Параметр Map определяет соответствие колонок таблиц в формате "имя_колонки_назначения=имя_колонки_источника, имя_колонки_назначения=имя_колонки_источника".

Пример:

<?xml version="1.0" encoding="windows-1251"?>
<Module Type="Form" Name="DemoForm1" Description="Демо">
  <Form Width="336" Height="296" Icon="-1">
    <list Toolbar="3\nadd\n\n4\ncopy\n\n5\nopen\n\n6\ndelete\n\n" 
      Config="64\nA\nA\nstring\n\n\n\n\n\n64\nB\nB\nString\n\n\n\n\n\n64\nC\nC\nInteger\n\n\n\n\n\n"
      Left="8" Top="8" Width="320" Height="136" Name="Table1" Border="16"/>
    <list Toolbar="3\nadd\n\n4\ncopy\n\n5\nopen\n\n6\ndelete\n\n" 
      Config="64\nA\nA\nstring\n\n\n\n\n\n64\nB\nB\nString\n\n\n\n\n\n64\nC\nC\nInteger\n\n\n\n\n\n"
      Left="8" Top="152" Width="320" Height="136" Name="Table2" Border="16"/>
  </Form>
  <Programm Language="Similar Pascal">
    Procedure OnCreate;
    Begin
      Table1.Append; Table1[0].a := 'a'; Table1[0].b := 'b'; Table1[0].c := 1;
      Table1.Append; Table1[1].a := 'd'; Table1[1].b := 'e'; Table1[1].c := 2;
      Table1.Append; Table1[2].a := 'g'; Table1[2].b := 'h'; Table1[2].c := 3;
      Table2.Insert(0, 'a=a, b=b, c=c', Table1);
      Table2.Insert(1, 'b=a', Table1);
    End;
  </Programm>
</Module>

Результат:

A	B	C
a	b	Груша
	a
	d
	g
d	e	Слива
g	h	Персик

© RTIT