Повторное использование кода..

← →
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;

> Skier © (03.09.03 16:44) [1]

TdateTime, Integer и перечисляемый соответсвенно

> clickmaker © (03.09.03 16:45) [2]
Спасибо, наверное это то.

Повторное использование кода.. Найти похожие ветки