博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
试试带参数的 Exit
阅读量:5753 次
发布时间:2019-06-18

本文共 575 字,大约阅读时间需要 1 分钟。

  hot3.png

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}function fun(str: string): string;begin  if str = '' then Exit('空'); {Delphi 2009 支持}  Result := str + str;end;procedure TForm1.Button1Click(Sender: TObject);var  s: string;begin  s := fun('ABC');  ShowMessage(s);  {ABCABC}  s := fun('');  ShowMessage(s);  {空}end;end.

转载于:https://my.oschina.net/hermer/blog/320482

你可能感兴趣的文章
大话 程序猿 眼里的 接口
查看>>
struts2用了哪几种模式
查看>>
replace函数结合正则表达式实现转化成驼峰与转化成连接字符串的方法
查看>>
ubuntu 初学常用命令
查看>>
WCF客户端与服务端通信简单入门教程
查看>>
判断是否含有中文
查看>>
android 资源种类及使用
查看>>
Explorer程序出错
查看>>
修改系统时间 ubuntu
查看>>
Centos7同时运行多个Tomcat
查看>>
使用CocoaPods过程中的几个问题
查看>>
我的友情链接
查看>>
mysql数据类型---数值型---int
查看>>
为eclipse安装maven插件
查看>>
公司新年第一次全员大会小记
查看>>
最懒的程序员
查看>>
JAVA8 Stream 浅析
查看>>
inner join on, left join on, right join on要详细点的介绍
查看>>
SAS vs SSD对比测试MySQL tpch性能
查看>>
Spring boot 整合CXF webservice 全部被拦截的问题
查看>>