Удаление элементов TLabel из VertScrollBox во время выполнения в FireMonkey

Delphi , Компоненты и Классы , TLabel

Удаление элементов TLabel из VertScrollBox во время выполнения в FireMonkey

При работе с FireMonkey в Delphi sometimes возникает необходимость создавать и удалять элементы TLabel во время выполнения. В этой статье мы рассмотрим, как правильно добавлять и удалять TLabel в VertScrollBox во время выполнения.

Добавление TLabel в VertScrollBox во время выполнения

Для добавления TLabel в VertScrollBox во время выполнения можно использовать цикл и метод TLabel.Create. Вот пример кода:

var
  i, f: integer;
  RT_Label: TLabel;
begin
  f:= 10;
  for i := 0 to 20 do
  begin
    RT_Label := TLabel.Create(Self);
    RT_Label.Name := 'Label' + i.ToString;
    RT_Label.Text := 'SampleLabel' + i.ToString;
    RT_Label.Position.Y := f;
    RT_Label.Align := TAlignLayout.Top;
    RT_Label.Parent := VertScrollBox1;
    inc(f, 15);
  end;
end;

В этом примере создается 21 TLabel с уникальными именами и текстами. Каждый новый TLabel добавляется в VertScrollBox1 с интервалом 15 пикселей.

Удаление TLabel из VertScrollBox во время выполнения

Теперь рассмотрим, как правильно удалять созданные TLabel из VertScrollBox во время выполнения. Для этого можно использовать цикл и метод FreeAndNil. Однако, в приведенном ниже коде есть ошибка:

var
  i: integer;
  LComponent: TComponent;
begin
  for i := 0 to ComponentCount-1 do
  begin
    if( Components[i] is TLabel ) then
      if StartsText('Label', (Components[i] as TLabel).Name) then
      begin
        LComponent := (Components[i] as TLabel);
        If Assigned(LComponent) then FreeAndNil(LComponent);
      end;
  end;
end;

При попытке выполнить этот код возникает ошибка "Argument out of range". Причиной ошибки является то, что цикл начинается с ComponentCount-1, но при удалении элемента из Components список перестраивается, и индексы других элементов меняются.

Чтобы избежать этой ошибки, нужно перебирать элементы в обратном порядке:

var
  i: integer;
begin
  for i := ComponentCount-1 downto 0 do
  begin
    if Components[i] is TLabel then
      if StartsText('Label', (Components[i] as TLabel).Name) then
        FreeAndNil(Components[i]);
  end;
end;

В этом примере цикл начинается с последнего элемента и идет в обратном порядке. Таким образом, при удалении элемента индексы других элементов не меняются, и цикл работает корректно.

Также стоит отметить, что на мобильных платформах (iOS, Android) используется автоматическое управление памятью (ARC), и метод FreeAndNil не освобождает память. В таких случаях нужно использовать метод DisposeOf:

begin
  for i := ComponentCount-1 downto 0 do
  begin
    if Components[i] is TLabel then
      if StartsText('Label', (Components[i] as TLabel).Name) then
        Components[i].DisposeOf;
  end;
end;

В этом примере для удаления TLabel используется метод DisposeOf, который корректно работает на всех платформах.

Таким образом, чтобы правильно удалять TLabel из VertScrollBox во время выполнения в FireMonkey, нужно перебирать элементы в обратном порядке и использовать метод FreeAndNil на Windows и OSX, или метод DisposeOf на мобильных платформах.

Создано по материалам из источника по ссылке.

В статье рассматривается процесс добавления и удаления элементов TLabel в VertScrollBox во время выполнения в FireMonkey в Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TLabel ::