试试带参数的 Exit
2008-10-13 22:07
162 查看
unit 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.
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.
相关文章推荐
- 试试带参数的 Exit
- pthread_join得到pthread_exit传出来的参数
- 请问exit(0)与exit(1)有什么区别?它们可以通用吗?里面的参数的不同具体体现在那里?
- libjpeg:实现jpeg内存压缩暨error_exit错误异常处理和个性化参数设置
- exit() 参数
- 带参数的exit
- 带参数的exit
- user exit程序中使用import参数之外的字段的办法
- java was started but returned exit code=13 与查看java参数
- 请教GetExitCodeThread函数的作用及参数
- pthread_exit ---- 不能使用局部变量作为参数返回
- WaitHandle.WaitOne()中的exitContext参数作用
- C++小技巧emun namespace 指针*、&(在函数里做参数) exit与return Win32宏定义 双等号代表意义
- pthread_exit 参数使用
- 嵌入式开发第24天(线程参数,进程,线程,fork,exit,waitpid,exec)
- exit参数代表的意思
- C/C++ 中 exit() 函数的参数意义
- java基础学习-- 可变参数
- 传递引用类型参数(ref)
- angular的post请求,SpringMVC后台接收不到参数值的解决方案