price for ugly code of the week goes to
price for ugly code of the week goes to
with cmbLanguage do
Result := TFooI18nLanguage(GetEnumValue(TypeInfo(TFooI18nLanguage),I18N_PREFIX+Properties.Items[ItemIndex]));
(i replaced acronym of company with Foo)
with cmbLanguage do
Result := TFooI18nLanguage(GetEnumValue(TypeInfo(TFooI18nLanguage),I18N_PREFIX+Properties.Items[ItemIndex]));
(i replaced acronym of company with Foo)
Our life will be much happier with a simple & ready-to-use data-binding and MVC/MVVM solution.
ReplyDeleteMy favorite today's piece of code is
ReplyDeletePDPRMR := APDPRMR;
:)