避免在Delphi中重复代码
|
我有两个组件A和B。组件B派生自组件A，并与它共享大多数属性和过程。现在，我有一个冗长的过程，例如：
procedure DoSomething;
begin
Form1.Caption := Component_A.Caption;
// hundreds of additional lines of code calling component A
end;
procedure DoSomething;
var
C: TheComponentThatIsActive;
begin
if Component_A.Active then
C := Component_A;
if Component_B.Active then
C := Component_B;
Form1.Caption := C.Caption;
end;
没有找到相关结果
已邀请:
2 个回复
佬棠
应该与是相同的类型（）。 现在，如果遇到某些属性/方法仅属于的绊脚石，请检查并进行类型转换。procedure DoSomething; var C: TComponentA; begin if Component_A.Active then C := Component_A else if Component_B.Active then C := Component_B else raise EShouldNotReachHere.Create(); Form1.Caption := C.Caption; if C=Component_B then Component_B.B_Only_Method; end;了驳
ComponentA = class public procedure Fuu(); procedure Aqq(); end; ComponentB = class(ComponentA) public procedure Blee(); end; implementation procedure DoSomething(context:ComponentA); begin context.Fuu(); context.Aqq(); end; procedure TForm1.Button1Click(Sender: TObject); var cA:ComponentA; cB:ComponentB; begin cA:= ComponentA.Create(); cB:= ComponentB.Create(); DoSomething(cA); DoSomething(cB); cA.Free; cB.Free; end;