足让你打吃一惊：一小段奇异的代码

[baseyueliang]

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);
private
function GetTrue: Boolean;
function GetValue1(var s: string): Variant;
function GetValue2(var s: string): Boolean;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

function TForm1.GetTrue: Boolean;
begin
Result := True;
end;

function TForm1.GetValue1(var s: string): Variant;
begin
Result := True;
s := 'World';
end;

function TForm1.GetValue2(var s: string): Boolean;
begin
Result := True;
s := 'World';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if GetTrue or GetValue1(s) then
ShowMessage('Hello ' + s);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
begin
if GetTrue or GetValue2(s) then
ShowMessage('Hello ' + s);
end;

end.


//看看会Show什么出来？

[justin_wkf]

都是高手学习学习

[mjp1234airen4385]

看到24楼的时候，明白了。

[DelphiFuture]

第二个没执行是不是因为两个代码一样才忽略的啊

[gangzi002]

[Quote=引用 15 楼 fengjssoft 的回复:]
第二個GetValue2(s)沒有執行，可能是因為if GetTrue or GetValue2(s) then
的函數GetTrue 得到真後，就不執行GetValue2(s)了，第一個GetValue1(s)因為返回值是
Variant，編譯器不直接認為是布爾類型，所以執行了GetValue1(s)。
ˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍˍ
不知道大家認同不？
[/Quote]
这个理论上应该是对的，但是从这个程序上来看，如果getValue2（s）不执行的话，那么在Button1Click（）事件中getValue1（s）也是不会执行的，但结果getValue1（s）执行了，所以……

[gangzi002]

[Quote=引用 24 楼 zswang 的回复:]
这都被楼主发现了！

Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
if GetTrue or Boolean(GetValue1(s)) then
ShowMessage('Hello ' + s);
end;

procedu……
[/Quote]
厉害，能详细说说么？

[libingzhao]

看来Variant的却会引起意想不到的错误

[rainychan2009]

[Quote=引用 11 楼 lgx0914 的回复:]
Delphi(Pascal) code
function TForm1.GetValue2(var s: string): Boolean;
begin
Result := True;
ShowMessage('af');//加上这行再试试，会发现没有执行
s := 'World';
end;
[/Quote]
这个调试的思路挺有意思。不懂汇编，不看Windows窗口。。。

[林石公]

我 打吃 一惊

震精了

[Im17benteng]

这个没什么吧，把or改成and试试
运算符嘛

[woxinyongheng0801]

刚刚接触delphi。学习了。

[shenmepowangzhan]

[Quote=引用 34 楼 forestdb 的回复:]
--!!看了半天就一shortcut的思想。
[/Quote]


是short-circuit吧，不是逻辑短路么？

[lvfei721]

受教了，我觉得还是定义数据的时候类型选择对于执行与否的影响

[illj1111]

高端哦，至今还没看明白什么是什么呢。

[pandashare]

[Quote=引用 69 楼 wangxinghe 的回复:]
如果没有完整细致的说明文档，这些小细节真会折腾死人。本人有个建议，不要书写太复杂的语句，
宁可啰嗦麻烦一点（保证程序确实按照思路去运行）。因为我们有时候真的不知道工具本身会如何去处理一些复杂的语句。
[/Quote]
认同...的确- -! 宁可啰嗦点有时候

[wamm2144]

不懂最少你开头说明下，有什么问题

[山东蓝鸟贵薪]

加入环境,运行一下,不就知道了结果了吗

[山东蓝鸟贵薪]

谢谢分享,学习学习先..........

[EmbarcaderoSC]

FireMonkey是Delphi的新一代框架，主要是加强2D,3D，动画等UI方面的开发，能轻松开发出炫酷的应用界面；据说FireMonkey更强的就是跨平台，使用该框架开发的应用可以部署到MAC，而且FireMonkey还有针对iOS的开发控件，结合freepascal可以编译生成iOS上的应用。

就delphi本身，我觉得64bit应该是一个大的进步.大家都拭目以待Delphi的复兴吧：）

[xixiyayaya]

看了看了，好奇，天书，晦涩，越来越晕

[spr2372]

MK MK