zoukankan      html  css  js  c++  java
  • Handbook之011:预设参数

    Delphi函数声明可以写预设参数,定义的时候,可以不用写

    image

    代码如下:

    unit Unit1;
    
    interface
    
    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
      Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
    
    type
      TForm1 = class(TForm)
        Memo1: TMemo;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    //函数声明
    procedure ShowOnMemo (Msg: string; Caption: string = '信息'; Separator: string = ': ');
    
    implementation
    
    {$R *.dfm}
    
    //函数定义
    procedure ShowOnMemo (Msg: string; Caption: string ; Separator: string );
    begin
       Form1.Memo1.Lines.Add(Caption + Separator + Msg);
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ShowOnMemo('曾经沧海难为水');
    end;
    
    end.
  • 相关阅读:
    junit单元测试踩过的坑
    Arrays.asList()需要注意的点
    oracle数据库学习笔记
    实训笔记
    spring事务学习笔记
    java锁
    jvm内存模型
    iOS 应用架构 (三)
    iOS 应用架构 (二)
    iOS 应用架构 (一)
  • 原文地址:https://www.cnblogs.com/GodPan/p/4908059.html
Copyright © 2011-2022 走看看