[poli-smen]

Сообщение от scroyler

Как удалить строки в которых меньше 4ех символов из листбокса ?
Подскажите пожалуйста

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := ListBox1.Items.Count-1 downto 0 do
  begin
    if Length(ListBox1.Items[i]) < 4 then ListBox1.Items.Delete(i);
  end;
end;