Array-Property werd ich mir merken. Scheint so zu funktionieren wie ich wollte. Musste aber die Setter&Getter Funktionen von private nach protected verschieben, weil ich die sonst nicht überschreiben konnte. Kann das sein?
Delphi-Quellcode:
unit uJob;
interface
uses uMSG;
Type TJob =
class
private
protected
fMSG:TMSG;
ID:
String;
function JobInfo:
String;
virtual;
abstract;
function GetParameter(
const ParamName:
string):
string;
virtual;
abstract;
procedure SetParameter(
const ParamName:
string;
const Value:
string);
virtual;
abstract;
public
function Execute:Boolean;
virtual;
abstract;
procedure Clear;
virtual;
abstract;
property MSG:TMSG
read fMSG
write fMSG;
property Parameter[
const ParamName:
string]:
string read GetParameter
write SetParameter;
end;
implementation
{ TJob }
end.