Handbook 011: Preset parameters

Delphi function declaration can write preset parameters, when defined, can not write

The code is as follows:

UnitUnit1;Interfaceuseswinapi.windows, Winapi.messages, System.sysutils, System.variants, system.classes, Vcl.graphics, Vcl.Controls, Vcl.forms, Vcl.dialogs, Vcl.stdctrls;typeTForm1=class(tform) Memo1:tmemo;    Button1:tbutton; procedureButton1Click (Sender:tobject); Private    {Private Declarations}   Public    {Public Declarations}  End;varForm1:tform1;//function DeclarationprocedureShowonmemo (MSG:string; Caption:string='Information'; Separator:string=': ');Implementation{$R *.DFM}//function DefinitionprocedureShowonmemo (MSG:string; Caption:string; Separator:string );beginForm1.Memo1.Lines.Add (Caption+ Separator +MSG);End;procedureTform1.button1click (sender:tobject);beginShowonmemo (''d been through water');End;End.

Handbook 011: Preset parameters