var Parameter in Ereignis

[Pseudemys Nelsoni]

Hi,

ich wollte gerade ein eigenes Ereignis schreiben:

Delphi-Quellcode:

TOnLogon = procedure(var HaltDef: Boolean = False);

nur sagt delphi da:

Zitat:

[Error] IRCClient.pas(19): Default parameter 'HaltDef' must be by-value or const

Wieso kann ich kein Var parameter mitgeben?

Es gibt doch auch sowas wie:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

[jfheins]

Ich würde mal sagen, beim OnCloseQuery wird CanClose auf true gesetzt, und dann dafst du es noch verändern, wenn du lustig bist :mrgreen:

Machs doch genauso ...
Das "= False" weg, und jedes mal manuell vorher setzen

[Steve]

Hi,

dass ein var-Parameter kein default-Parameter sein kann, leuchtet doch irgendwie ein, denn wenn der Parameter default ist, muss er nicht übergeben werden, da er aber var ist, könnte er theor. geändert werden. -> Etwas nicht vorhandenes (übergebenes) zu ändern gestaltet sich schwierig :mrgreen:

o.g. Lösung erscheint mir auch als geeignet :)

Gruß
Stephan :dance:

[Binärbaum]

Da kann ich Steve nur zustimmmen, dass sowas nicht geht.
Der Vorteil bei solchen default-Parametern ist ja auch, dass man den Parameter beim Aufruf nicht unbedingt mit angeben muss (aber kann), da ja hierfür der default-Wert verwendet wird.
Also kann man die Prozedur

Delphi-Quellcode:

procedure ParameterOderNicht(param1: Char= 'A');

folgendermaßen aufrufen:

Delphi-Quellcode:

  //mit Parameter:
  ParameterOderNicht('B');
  //ohne Parameter:
  ParameterOderNicht;

Beide Varianten sind zulässig. Das ist u.a. dann von Vorteil, wenn eine Prozedur bis auf wenige Ausnahmen immer mit demselben Parameterwert aufgerufen wird und nur selten mit anderen Werten. Dann braucht man die Parameter nicht jedesmal mit in den Quelltext zu schreiben.
(Praktisch für schreibfaule Programmierer :) )

MfG
Binärbaum