optionale Parameter mit object-type?

[milos]

Zitat von SearchBot:

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

[HolgerX]

Hmm..

wie währe es mit folgender Deklaration

function Interpreter(cmd:string; Modus:TModus; inScript:TScript = nil):TStatus;

Mit dem ' = nil' kann das Object doch einfach beim Aufruf weggelassen werden.
Musst dann nur in der implementation der Funktion überall vor Verwendung von inScript auf Assigned prüfen..

[hoika]

Hallo,
warum lässt der Compiler das nicht zu?
Zeig doch mal Deinen Code.

[uligerhardt]

Zitat von hoika:

warum lässt der Compiler das nicht zu?

TScript ist ein old-style-object, keine class.