Foreach + Table + Variant

Если использовать тип Variant, то ячейка таблицы не изменяется, так как Foreach создает новый объект. При использовании Form1 ячейка изменяется.

Procedure OnCreate;
var
  F : Variant/Form1;
begin
  F := CreateForm('Form1', emAdd, 0);
  F.Detail.Append;
  F.Detail.Cell(0,0) := 'Hello';
  Foreach X in F.Detail do
  begin
    warning('@'+X.Descr as string+'@');
    X.Descr := 'автопроведение | ' + X.Descr as string;
    warning('@'+X.Descr as string+'@');
 end;
End;

© RTIT