本文整理自网络,侵删。
试试带参数的 Exitunit Unit1;
interface
uses 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.
相关阅读 >>
Delphi 最全_日期格式_dateutils时间单元说明
Delphi 10.2 新特性之―tfdbatchmovejsonwriter
Delphi 新建文件 复制文件 重命名文件名时 文件存在自动重命名
Delphi [数据库连接字符串] access 连接字符串
更多相关阅读请进入《Delphi》频道 >>