GB
Generic.Collections совместим с дельфи по идееSize: a a a
2020 August 31
Y
Мне показалось что с
Generic.Collections комфортней работатьRS
Лично я работаю с родным лазарусовским
fcl-stl, хотя конечно совместимости с Delphi неиАВ
А я к fgl привык через боль😄 хотя к простому TList и играми в наследование привык еще во времена D7😄
2020 September 01
RS
К сожалению, обнаружил, что
index может быть только Integer. Как думаете, есть ли красивый выход из этой ситуации или на каждый объект TValuteItem придется создавать свой геттер метод? { TValuteList }
TValuteList = class
private
FValuteItems: TStringList;
function GetValutes(Index: String): TValuteItem;
public
constructor Create;
destructor Destroy; override;
property Valutes[Index: String]: TValuteItem read GetValutes;
published
property GBP: TValuteItem read GetValutes('GBP');
property USD: TValuteItem read GetValutes('USD');
end;
... ... ...function TValuteList.GetValutes(Index: String): TValuteItem;P.S. FreePascal, структура published свойств определяется не мной (
var
aIndex: Integer;
begin
if FValuteItems.Find(Index, aIndex) then
Result:=TValuteItem(FValuteItems.Objects[aIndex])
else begin
Result:=TValuteItem.Create;
FValuteItems.AddObject(Index, Result);
end;
end;
SB
А нефиг всякую ерунду индексом называть =)
SB
Есть же ISO 4217, там и буквенные и цифровые коды
SB
А как по буквенному ключу получить значение - можно подсмотреть в TStringList.Values
RS
А нефиг всякую ерунду индексом называть =)
Ну это реально индекс только строкой. Ну и дело не в названии
RS
А как по буквенному ключу получить значение - можно подсмотреть в TStringList.Values
Я ж и использовал его.
Ш
может вместо стринглиста дженерик использовать?
Ш
дженерик спокойно работает с любыми индексами
RS
дженерик спокойно работает с любыми индексами
Не понял как помоожет. Буду у компа уточню аопрос
Ш
а понял в чём затык, это я не так немного проблему понял
Ш
у тебя индекс произвольный или ограниченного диапозона?
RS
у тебя индекс произвольный или ограниченного диапозона?
Ну .. ограниченного в принципе
RS
Их штук 15 может... поэтому и сказал, что можно вручную на каждое свойство поле сделать и геттер
Ш
RS
Массивом бы сделал без проблем