张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  Delphi Or函数用法

function 中定义函数的默认返回值，

摘要：result有默认值的int类型的为0，string类型的为‘’，tobject类型的为nil等等 阅读全文

posted @ 2014-09-03 14:08 ╰★张志峰★╮ 阅读(686) 评论(0) 推荐(0)

Delphi or函数的用法

摘要：function GetFlag(a: string): Integer;var I: Integer;begin Result := 0; for I := 0 to 3 - 1 do begin if a = '0' then Result := Result or 1 else Result := Result or 2; end;end;procedure TForm1.Button1Click(Sender: TObject);var I: Integer;begin I := GetFlag('3'); ShowMessage(IntToStr... 阅读全文

posted @ 2013-12-30 14:46 ╰★张志峰★╮ 阅读(395) 评论(0) 推荐(0)