Ш
обсуждается как раз эта тема
Size: a a a
2020 September 01
RS
Гляну
Ш
type
TStringByString = class
private
FItems: TStrings;
function GetItem(const Index: string): string;
procedure SetItem(const Index, Value: string);
public
constructor Create;
destructor Destroy; override;
property Items[Index: string]: string read GetItem write SetItem;
end;
{ TStringByString }
constructor TStringByString.Create;
begin
FItems := TStringList.Create;
end;
destructor TStringByString.Destroy;
begin
FItems.Free;
end;
function TStringByString.GetItem(const Index: string): string;
begin
Result := FItems.Values[Index];
end;
procedure TStringByString.SetItem(const Index, Value: string);
begin
FItems.Index[Index] := Value;
end;Ш
вроде там сошлись на таком конечном результате
АВ
Задачи конечно бывают разные, ток я не понял нафига стринговые индексы в виде нашлепки над стринглистом:/
Ш
ну, как обычно танцы с бубнами из-за отсутствия в Делфе ассоциативных массивов :)))
A
Задачи конечно бывают разные, ток я не понял нафига стринговые индексы в виде нашлепки над стринглистом:/
Пишет gbp, а ему в ответ список значений завязанный на, к примеру, банки.
Ш
если бы список был бы ограниченным, можно было бы станцевать с перечислением.
АВ
А, ясн. Индекс то там серавно числовой под капотом
RS
type
TStringByString = class
private
FItems: TStrings;
function GetItem(const Index: string): string;
procedure SetItem(const Index, Value: string);
public
constructor Create;
destructor Destroy; override;
property Items[Index: string]: string read GetItem write SetItem;
end;
{ TStringByString }
constructor TStringByString.Create;
begin
FItems := TStringList.Create;
end;
destructor TStringByString.Destroy;
begin
FItems.Free;
end;
function TStringByString.GetItem(const Index: string): string;
begin
Result := FItems.Values[Index];
end;
procedure TStringByString.SetItem(const Index, Value: string);
begin
FItems.Index[Index] := Value;
end;Я такую конструкцию использую периодически, но задача была в другом. СЕйчас уточню вопрос https://t.me/Delphi_Lazarus/133829
RS
По ссылке в принципе тоже про то, что индексы могут быть и строковые и свойств массивов я не только знал, но и использую постоянно. Я собственно и хотел их использовать в своем примере в коде.
RS
Суть в том, что есть ключевое слово
По ней видно, что лаконичность достигается использованием одного геттера на все эти свойства. Обратите внимание, что к элементу, к примеру,
index, которое можно использовать в свойствах для того, чтобы использовать один геттер (то есть тот метод, который идет после read в property). К примеру, конструкция ниже нормально бы скомпилировалась. { TValuteList }
TValuteList = class
private
function GetValutes(Index: Integer): TValuteItem;
public
constructor Create;
destructor Destroy; override;
property Valutes[Index: Integer]: TValuteItem read GetValutes;
published
property GBP: TValuteItem index 1 GetValutes;
property USD: TValuteItem index 2 GetValutes;
property EUR: TValuteItem index 3 GetValutes;
... ... ... ...
property CNY: TValuteItem index 25 GetValutes;
end;
Подробнее о таких конструкциях https://www.freepascal.org/docs-html/ref/refsu34.htmlПо ней видно, что лаконичность достигается использованием одного геттера на все эти свойства. Обратите внимание, что к элементу, к примеру,
USD можно обратится вот так TValueList.USD и вот так TValueList.Valutes[2]. Можно использовать таки в качестве индекса и строковый тип как в примеру приведенном мною изначально, но не скомпилируется конструкция property GBP, USD, EUR и т.д. c index, так как она к сожалению поддерживает только IntegerRS
Вообщем, замарачиваться не буду. Можно сделать вручную каждый геттер, но я просто изменю подход. Использую план Б без паскалевских объектов
Ш
ну и нафига козе баян? Почему тогда не создать перечисление и не сделать свойство этого типа?
Ш
суть будет та же
RS
ну и нафига козе баян? Почему тогда не создать перечисление и не сделать свойство этого типа?
Да, это "третий путь", забыл про него упомянуть. Просто хотелось сохранить в public свойство массив со строковым индексом для использования ее снаружи
Ш
да не будет тогда красивого обращения к свойству по имени валюты, зато кода будет значительно меньше
Ш
Да, это "третий путь", забыл про него упомянуть. Просто хотелось сохранить в public свойство массив со строковым индексом для использования ее снаружи
нуу :) красиво в принципе тоже аргумент, при условии конечно, что оно не ведёт к большому геморрою ;)
RS
да не будет тогда красивого обращения к свойству по имени валюты, зато кода будет значительно меньше
да, красоты поменьше будет. Просто я уже думаю не делать объекты паскалевские, а оставлять TJSONData и все. Нефиг мне плодить сущности раз не хочет принимать строку как индекс
Ш
то есть ты про этот "index 25" индекс говорил?