Создание динамического списка городов для выбранной страны в Delphi

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

В процессе изучения Pascal и работы с компонентами Delphi, пользователи часто сталкиваются с необходимостью реализации динамического переключения списков. В данном случае, задача состоит в том, чтобы при выборе страны в первом списке, в втором списке отображались соответствующие города. Ниже представлен пошаговый процесс решения этой задачи с использованием Object Pascal.

Шаг 1: Подготовка формы и компонентов

Создайте новую форму в вашем Delphi-проекте и добавьте на неё два списка (ListBox), которые будут использоваться для отображения стран и городов соответственно.

Шаг 2: Определение структуры данных

Для хранения информации о странах и соответствующих им городах, определите запись (record), которая будет содержать название страны и массив городов.

type
  TCountryCitiesRecord = record
    Country: string;
    Cities: array of string;
  end;

Шаг 3: Инициализация данных

Создайте константный массив записей, содержащий информацию о странах и городах. В реальном приложении эти данные могут быть загружены из файла или базы данных.

const
  FCountriesCities: array of TCountryCitiesRecord = (
    (Country: 'USA'; Cities: ('New York', 'Washington', 'Phoenix')),
    (Country: 'United Kingdom'; Cities: ('York', 'London', 'Manchester')),
    (Country: 'Spain'; Cities: ('Madrid', 'Barcelona', 'Valencia'))
  );

Шаг 4: Заполнение списка стран

Напишите обработчик события OnCreate формы, который заполнит список стран данными из массива FCountriesCities.

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := Low(FCountriesCities) to High(FCountriesCities) do
    ListBox1.Items.Add(FCountriesCities[I].Country);
end;

Шаг 5: Обработка выбора страны

Напишите обработчик события OnClick для первого списка, который будет обновлять второй список, отображая города выбранной страны.

procedure TForm1.ListBox1Click(Sender: TObject);
var
  I: Integer;
begin
  ListBox2.Items.Clear;
  if ListBox1.ItemIndex <> -1 then
    for I := Low(FCountriesCities[ListBox1.ItemIndex].Cities) to High(FCountriesCities[ListBox1.ItemIndex].Cities) do
      ListBox2.Items.Add(FCountriesCities[ListBox1.ItemIndex].Cities[I]);
end;

Шаг 6: Привязка обработчиков событий

Привяжите обработчики событий к соответствующим компонентам в вашем Delphi-проекте.

procedure TForm1.FormCreate(Sender: TObject);
begin
  ListBox1.OnClick := ListBox1Click;
end;

Шаг 7: Тестирование приложения

Запустите ваше приложение и проверьте, что при выборе страны в первом списке, во втором списке отображаются соответствующие города.

Заключение

Вы создали динамический список городов, который обновляется в соответствии с выбранной страной. Это базовый пример, который можно расширить и улучшить, добавив дополнительные функции, такие как загрузка данных из файла, базы данных или использование более сложных структур данных.

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

Создание динамического списка городов для выбранной страны в среде разработки Delphi, используя Object Pascal для обработки событий и обновления данных.

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

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

:: Главная :: Списки ::