Feld als Defaultwert einer Methode?

[Pseudemys Nelsoni]

Moin,

Delphi-Quellcode:

TMyClass = class
private
  B: Boolean;
public
  procedure(const v: Boolean = B);
end;

Wieso Funktioniert dies nicht?Ich möchte, dass standardmässig der Wert der Variablen B an die Prozedur übergeben wird, sofern kein anderer übergeben wurde. Der Compiler meint aber, dass B unbekannt ist...

Ne Idee?

[TBx]

Hallo!

Prozeduren mit Optionalen Parametern können nur mit definierten Werten, nicht aber mit Variablen vorbesetzt werden.
Dein Problem läßt sich mit Hilfe Überladener Prozeduren lösen:

Delphi-Quellcode:

type
  TMyClass = class
  private
    FVorgabe : Boolean;
  public
    Procedure MyProc; overload;
    Procedure MyProc (const B : Boolean); overload;
  end;

  TMyClass.MyProc;
  begin
    MyProc (FVorgabe);
  end;

  TMyClass.MyProc (const B : Boolean);
  begin
    // hier kommt der eigentliche Code rein
  end;

Ich hoffe, das hilft Dir weiter.

gruß

onlinekater