Dynamischer Funktionsaufruf

[yörsch]

HAI Sämy


ich hab sowas für Kameras gemacht.
in der abstrakten Klasse KAMERA weis ich nicht was die konkrete Kamera kann.
Muß aber über die Abstrate Klasse abfragen was kann die konktete Kamera kann...

in der Abstrakten Klasse für allgemeine Parameter:

Delphi-Quellcode:

function TKamera.GetParameter(Param:Integer): string;
begin
  IF      Param = ckam_act_size_x     then Result := IntTostr(fact_size_x)
  Else IF Param = ckam_act_size_y     then Result := InttoStr(fact_size_y)
  Else IF Param = ckam_org_size_x     then Result := InttoStr(forg_size_x)
  Else IF Param = ckam_org_size_y     then Result := InttoStr(forg_size_y)
  ...
  ; // case geht auch!!!
end;

in der Konkreten Klasse TBaumer ist von TKamera abgeleitet:

Delphi-Quellcode:

procedure TBaumer_fx.SetParameterInt(Param: integer;
  const Value: Integer);
begin
  IF      Param = ckam_dym_size_x     then Result := IntTostr(fdym_size_x)
  Else IF Param = ckam_dym_size_y     then Result := InttoStr(fdym_size_y)
  ...
  Else Result := inherited GetParameterInt(Param);
end;

oder versteh ich das Problem Falsch ???