Default Parameter

In einer procedure oder function, kann man auch Default Parameter deklarieren. Dabei muss beachtet werden, das die nur bei den letzten Paramter gestattet ist.

Die letzten 2 Parameter haben Defaultwerte, und somit ist die erlaubt.

procedure Erlaubt(a: byte; b: byte = 4; c: byte = 5);

Nur der 2 Parameter hat eine Defaultwert und somit gibt dies einen Fehler.

procedure Verboten(a: byte; b: byte = 4; c: byte);

Beispiel

Diese Beispiel zeig eine Anwendung des Default Parameter.

program Example;

  procedure Print(s: string; LineEnd: boolean = False);
  begin
    if LineEnd then begin
      WriteLn(s);
    end else begin
      Write(s);
    end;
  end;

begin
  Print('Hello ');         // Entspricht Print('Hello ', False);
  Print('World !', True);
  Print('======', False);
  Print('=======', True);
end.

Autor: Mathias

From the Free Pascal wiki, page "Default parameter/de", as it stood on 2020-02-12 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.