Форум: "Основная";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];
ВнизПовторное использование кода.. Найти похожие ветки
← →
jack128 (2003-09-03 16:39) [0]Есть вот такой код
procedure TdmDeviceDataModule.SetDeviceId(const Value: Integer);
var
f : boolean;
begin
if Value <> GetDeviceType then
begin
qryArhive.DisableControls;
try
f := qryArhive.Active;
if f then CloseArhive;
qryArhive.ParamByName("DEVICE_ID").AsInteger := Value;
if f then OpenArhive;
finally
qryArhive.EnableControls;
end;
end;
end;
в методах SetArhiveType, SetFirstDate, SetLastDate будет такой же код, за исключением выделенной строки.
Как бы так извернуться, чтобы небыло повторения кода? Проблема в том FirstDate, DeviceId, ArhiveType - свойства разного типа..
← →
Skier (2003-09-03 16:44) [1]
> Проблема в том FirstDate, DeviceId, ArhiveType - свойства
> разного типа..
А именно ?
← →
clickmaker (2003-09-03 16:45) [2]примерно так
procedure TdmDeviceDataModule.SetFieldValue(const FieldName: string; Value: Variant);
var
f : boolean;
begin
if Value <> GetFieldValue(FieldName) then
begin
qryArhive.DisableControls;
try
f := qryArhive.Active;
if f then CloseArhive;
qryArhive.ParamByName(FieldName).Value := Value;
if f then OpenArhive;
finally
qryArhive.EnableControls;
end;
end;
end;
← →
jack128 (2003-09-03 16:58) [3]
> Skier © (03.09.03 16:44) [1]
TdateTime, Integer и перечисляемый соответсвенно
> clickmaker © (03.09.03 16:45) [2]
Спасибо, наверное это то.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.014 c