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 ???