Delphi 中的 IfThen 函数
来源:互联网 发布:北京少儿编程培训班 编辑:程序博客网 时间:2024/06/06 12:38
StrUtils 单元和 Math 单元 分别有一个 IfThen 函数, 举例:
--------------------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses StrUtils, Math;
procedure TForm1.Button1Click(Sender: TObject);
var
a: Integer;
str: string;
begin
a := 1;
str := StrUtils.IfThen(a > 0, 'aaa', 'bbb');//返回字符串数据类型
ShowMessage(str); {aaa}
a := -1;
str := StrUtils.IfThen(a > 0, 'aaa', 'bbb');
ShowMessage(str); {bbb}
a := 1;
str := StrUtils.IfThen(a > 0, 'aaa');
ShowMessage(str); {aaa}
a := -1;
str := StrUtils.IfThen(a > 0, 'aaa');
ShowMessage(str); {}
end;
procedure TForm1.Button2Click(Sender: TObject);
var
str: string;
num: Integer;
begin
str := '万一';
num := Math.IfThen(str <> '', 99, 11);//返回整数数据类型
ShowMessage(IntToStr(num)); {99}
str := '';
num := Math.IfThen(str <> '', 99, 11);
ShowMessage(IntToStr(num)); {11}
str := '万一';
num := Math.IfThen(str <> '', 99);
ShowMessage(IntToStr(num)); {99}
str := '';
num := Math.IfThen(str <> '', 99);
ShowMessage(IntToStr(num)); {0}
end;
--------------------------------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses StrUtils, Math;
procedure TForm1.Button1Click(Sender: TObject);
var
a: Integer;
str: string;
begin
a := 1;
str := StrUtils.IfThen(a > 0, 'aaa', 'bbb');//返回字符串数据类型
ShowMessage(str); {aaa}
a := -1;
str := StrUtils.IfThen(a > 0, 'aaa', 'bbb');
ShowMessage(str); {bbb}
a := 1;
str := StrUtils.IfThen(a > 0, 'aaa');
ShowMessage(str); {aaa}
a := -1;
str := StrUtils.IfThen(a > 0, 'aaa');
ShowMessage(str); {}
end;
procedure TForm1.Button2Click(Sender: TObject);
var
str: string;
num: Integer;
begin
str := '万一';
num := Math.IfThen(str <> '', 99, 11);//返回整数数据类型
ShowMessage(IntToStr(num)); {99}
str := '';
num := Math.IfThen(str <> '', 99, 11);
ShowMessage(IntToStr(num)); {11}
str := '万一';
num := Math.IfThen(str <> '', 99);
ShowMessage(IntToStr(num)); {99}
str := '';
num := Math.IfThen(str <> '', 99);
ShowMessage(IntToStr(num)); {0}
end;
end.
更多交流请加本人QQ:2609715119
特别声明:闲人勿扰!
阅读全文
1 0
- Delphi 中的 IfThen 函数
- Delphi 中的 IfThen 函数
- 慎用IfThen函数!
- delphi中的split函数
- delphi中的split函数
- Delphi中的SendKeys函数
- Delphi中的SendKeys函数
- DELPHI 中的 Format 函数
- Delphi中的SendKeys函数
- delphi中的split函数
- delphi 中的 split 函数
- delphi中的split函数
- Delphi中的四舍五入函数
- delphi 中的delay函数
- Delphi中的构造函数
- Delphi中的构造函数
- Delphi 中的函数指针
- Delphi中的构造函数
- GetWindow、GetTopWindow和GetNextWindow(窗口句柄获取!!!)
- 数字金字塔
- Unity3d 生命周期所有实用方法极用法
- C#绘制的几种方法
- Java 内部类(1): 基本语法
- Delphi 中的 IfThen 函数
- 数据结构学习之链表的Java实现
- Clouder Manager: Yarn Fair scheduler config
- Java 判断字符串是否以什么开头
- Spring学习总结——Spring实现AOP的多种方式
- angular1资源
- I2C学习文章,看完即可秒懂
- easyui datagrid表格可以通过键盘上下箭头键来选择行
- .net 中 ActionResult 返回类型