迷你5207专属论坛

注册

 

返回列表
发新话题 回复该主题
查看: 7076|回复: 2

[设计] [delphi]with的秒用 [复制链接]

5207
头像

  • 皇帝
  • 1983-12-1
  • 1570
  • 2048
  • 93
  • 3965.8 M
元老奖章人格奖章人才奖章劳动奖章勇士奖章雅月奖章烈日奖章水神奖章老马奖章荣誉奖章
发表者
t T
发表于 2007-05-09 10:12 |只看楼主
使用with的时候有时会得到很不错的效果。下面举个例子大家看看：
  1. //先申明一个记录类型
  2.   TProjectData = record
  3.     FProjectID: string;
  4.     FName: string;
  5.     FCode: string;
  6.     FAddress: string;
  7.     FInvestor: string;
  8.     FInvestManager: string;
  9.     FWriteUnit: string;
  10.     FWritor: string;
  11.     FWriteDate: string;
  12.     FBuildArea: string;
  13.     FBidManager: string;
  14.     FBidDate: string;
  15.     FStartDate: string;
  16.     FEndDate: string;
  17.     FRemark: string;
  18.     FUpperLimit: double;
  19.     FVersion: string;
  20.     FCreateDate: TDateTime;
  21.     FModifyDate: TDateTime;
  22.     FJZYSJE: double;
  23.   end;

  25.   //使用with的时候有时会得到很不错的效果。下面举个例子大家看看：
  26.   //这里使用with就可以带省大量的代码篇幅，即明了又简洁。
  27.   //这样就不用在每个引用前加个"FProjectData."了，不是很爽吗？
  28.   with FProjectData do
  29.   begin
  30.     sSQL := Format(sSelectSQL, [FProjectID, FName,
  31.                   ,FCode,FAddress,FInvestor,FInvestManager
  32.                   ,FWriteUnit,FWritor,FWriteDate,FBuildArea
  33.                   ,FBidManager,FBidDate,FStartDate,FEndDate
  34.                   ,FRemark,FUpperLimit,FVersion,FCreateDate
  35.                   ,FModifyDate, FJZYSJE]);
  36.   end;
复制代码
本主题由 皇帝 5207 于 2009-7-3 23:07:56 执行 主题分类 操作
分享 转发
相信与不相信都是矛盾的.  5207宣!欢迎您来到点滴论坛
TOP
kuku2012
头像

kuku2012

  • 封僵大吏
  • 76
  • 136
  • 25
  • 118 M
元老奖章劳动奖章老马奖章
沙发
t T
发表于 2007-06-15 08:36 |只看该用户

回复：[delphi]with的秒用

兄弟，标题里有错别字。。。
我们都在人生的舞台上笨拙地舞蹈着，并自得其乐。
----
Tel : 13655310832
TOP
kuku2012
头像

kuku2012

  • 封僵大吏
  • 76
  • 136
  • 25
  • 118 M
元老奖章劳动奖章老马奖章
凳子
t T
发表于 2007-06-15 08:37 |只看该用户

回复：[delphi]with的秒用

兄弟，标题里有错别字。。。
我们都在人生的舞台上笨拙地舞蹈着，并自得其乐。
----
Tel : 13655310832
TOP
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器