Table.Append : Integer
Добавить строку

Метод Table.Append добавляет пустую строку в конец таблицы и возвращает номер добавленной строки.

Пример:

Procedure OnCreate;            
Var
  i, j : Integer;
Begin
  For i:=0 To 100 Do 
  Begin
    j := Table1.Append;
    Table1[j].A := 'S' + ToStr(i);  
    Table1[j].B := IncDays(EncodeDate(2000, 1, 1), i);
  End;           
End;

© RTIT