Решила объвить праздник непослушания и сделать совместимость двух версий

Question

Решила объвить праздник непослушания и сделать совместимость двух версий

программы. В одной поле в таблицах это константный Kind, а в другом код из справочника. Говорила шефу, что ерунда получиться и вот уже больше месяца обновления выложить не могу. Даже компоненты выбора получаются разными: одна почти обычный комбобокс, а другая понавороченней выбор из справочника. Обкладываю ifdef`ами и уже сейчас видно, что изменений будет достаточно много. Делаю на 7ке. Может не вижу простой путь?
Уже наплодилось и это только начало:
{$ifdef KfgTarifRef}
TKfgTarifEdit = class(TSKFldRefLookup)
{$else}
TKfgTarifEdit = class(TSKFldLookup)
private
FTcField: string;
{$endif}
private
function GetTcField: string;
procedure SetTcField(AValue: string);
public
procedure ResizeWidth;
property TcField: string read GetTcField write SetTcField;
end;

function EKfgTarifCodeCreate(AParent: TWinControl; AName: string;
ALeft, ATop, AWidth, AHeight: integer;
ALabel: TLabel; ATabOrder: integer;
ADataSource: TRecSource; AFieldName, ATcField: string): TKfgTarifEdit;

#lazarus #programming #russian

0

03.01.2024

7 ответов

25 просмотров

Катерина Свиридова Автор вопроса

Iluha Companets
выбор из справочника как делается (связь с данными...

Ну не совсем простой селект, но мысль такая была. Делать временную таблицу при первом обращении. Остановило, что если коннекшен попортиться, то везде где джоиниться эта талица будет слом. И как-то рука не поднимается делать лишний join, где можно обойтись списком каиндов. Обдумаю еще разок плюсы-минусы. Спасибо

0

4 месяца назад

Iluha Companets

Катерина Свиридова
Ну не совсем простой селект, но мысль такая была. ...

не, не временная таблица, а простая заглушка типа select 1 as id union select 2 as id union ... текст которой можно генерить в паскале

0

4 месяца назад

Iluha Companets

Катерина Свиридова
Ну не совсем простой селект, но мысль такая была. ...

Стикер

0

4 месяца назад