Касса. Добавить все настройки в Singleton и оттуда читать в тех местах где надо.

[Ihor Bielykh]

сабж

цель убрать все подобные записи:

• procedure TfrmKeyBoardSingleUse.Init;
• begin
• inherited Init;
• // Кнопки гватемальского INN
• with GetClientIni() do
• begin
• if (ReadAnsiString('COMMON', 'IS_GUATEMALA', '0', true) <> '1') then
• begin
• lblInn.Visible := False;
• lblInnText.Visible := False;
• img1.Visible := False;
• end;
• if (ReadAnsiString('COMMON', 'SHOW_DISCOUNTS_BUTTON', '0', true) <> '1') then
• begin
• btnDiscount.Visible := False;
• end;
• end;
• end;