Hallo,
ich habe da ein kleines Object aber keine Klasse deklariert:
Code:
type TScript = object
private
line:word;
state:TStatus;
public
script:TStringList;
error:string;
function Init(scriptfile:string):boolean;
end;
function Interpreter(cmd:string; Modus:TModus; inScript:TScript):TStatus;
Die Interpreter-Function ist sehr umfangreich.
Jetzt habe ich manchmal den Fall, daß ich die Interpreter-Function auch ohne "inScript" aufrufen möchte.
Ich kann den Parameter aber nicht einfach auf NIL setzen, das läßt der Compiler nicht zu.
Ich möchte jedoch nicht nochmal die fast gleiche, umfangreiche Function schreiben und mit OVERLOAD versehen (dann alternativ ohne "inScript").
Wie kann ich auf einfache Weise die Funktion deklarieren, daß der "inScript"-Parameter optional ist?
Hi,
wie wärs mit nem Overload der dann einfach ein leeres TScript übergibt? Und wozu genau ein
object?
Freundliche Grüsse