Использование ассоциативных массивов

Delphi , Синтаксис , Массивы

procedure TForm1.Button1Click(Sender: TObject);
var
  DataField: TStrings;
begin
  DataField := TStringList.Create; 
  DataField.Add(Format('%s=%s', ['Jonas', '15.03.1980'])); 
  ShowMessage(DataField.Values['Jonas']) 
  // will print the Birthday of Jonas 
  DataField.Free; 
end;

Here's the translation of the text into Russian:

Код, предоставленный ниже, это приложение Delphi, которое использует ассоциативный массив, конкретно объект TStringList, для хранения и извлечения данных.

Вот что делает код: 1. Определен обработчик события клика кнопки (Button1Click). 2. В этом обработчике создается новый экземпляр TStringList с помощью метода Create. 3. Метод Add используется для добавления пары строковых значений в TStringList. Формат строки %s=%s используется для создания пары ключ-значение, где 'Jonas' - это ключ, а '15.03.1980' - значение. 4. Показывается сообщение с помощью метода ShowMessage, содержащее значение, ассоциированное с ключом 'Jonas'. Это будет печатать дату рождения Джонаса, которая в этом случае равна '15.03.1980'. 5. Наконец, метод Free используется для освобождения системных ресурсов, зарезервированных объектом TStringList.

Альтернативное решение могло бы быть использованием словаря (встроенной структуры данных в Delphi) вместо TStringList. Это предоставило бы больше гибкости и читаемости:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyDictionary: TDictionary<String, String>;
begin
  MyDictionary := TDictionary<String, String>.Create;
  MyDictionary.Add('Jonas', '15.03.1980');
  ShowMessage(MyDictionary['Jonas']);
  MyDictionary.Free;
end;

В этом примере используется словарь TDictionary для хранения пары ключ-значение. Метод Add используется для добавления записи, а значение, ассоциированное с ключом 'Jonas', извлекается с помощью квадратных скобок (MyDictionary['Jonas']). Это подход предоставляет больше гибкости и читаемости по сравнению с использованием TStringList.

В статье описывается использование ассоциативных массивов в языке Delphi для хранения и доступа к данным с помощью примера, демонстрирующего создание и использование строки с ассоциативными данными.

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

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

:: Главная :: Массивы ::