Default parameter/de

From Lazarus wiki
Revision as of 07:20, 12 February 2020 by Trev (talk | contribs) (Fixed syntax highlighting)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)

Deutsch (de) English (en) español (es) suomi (fi) français (fr) polski (pl) русский (ru)

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