有用的 Delphi 代码模板

7

我已经学习Delphi编程两年多了,但我只有大概5个自定义模板,感觉应该有更多。

如果有人有特别有用的模板,能在stackoverflow上分享一下就太好了。

我不介意你使用Delphi 2009语法或Delphi 7,但如果生成的代码只适用于特定版本,请说明。

5个回答

11

8

非常方便的输出调试字符串加格式化


名称:
ods
描述:
使用格式化的方式输出调试字符串 代码:

OutputDebugString(PAnsiChar(format('|',[])));

另外,如果我想在代码中保留它:

名称:
dods
描述:
使用ifdef debug输出调试字符串
代码:

{$IFDEF DEBUG}   
   OutputDebugString(PAnsiChar(format('|',[])));   
{$ENDIF}

3
我们有一个小过程ODS(const s: string)。 :) - Uli Gerhardt
哇,我几乎有相同的快捷键,但是没有格式,我想现在加上它 :) 谢谢 - Christopher Chase
Unicode 转换方面的小提醒 - 根据需要更改为 OutputDebugStringW 或 OutputDebugStringA。 - Peter Turner
1
使用PChar而不是PAnsiChar。这样,在Delphi的Unicode和非Unicode版本中都可以正常工作。 - Martijn

5

这个很方便,因为每次我按下ctrl-j时它总是第一个显示出来(所以我的快捷键是ctrl-j enter)


名称:
//*
描述:
注释行
代码:

//******************************************************************************  

我用它来开始方法的文档。这比敲入78个星号要好得多。


我使用类似的代码,但它的名称是hr,它是一行破折号而不是星号。 - skamradt
我想不出哪里可以放置这样的注释,以便实际上有用。也就是说,解释代码的作用。 - Disillusioned
这是一个有用的注释的第一部分,(即//********** //* This function does something awesome //*************)。我的公司要求在过程之间至少使用//**************,当你喜欢使用具有get/set方法的属性时,这可能会变得乏味。 - Peter Turner

4

如果你经常在数据集上工作,这些是很方便的。

名称: fbn

描述: DataSet FieldByName

|DataSet|.FieldByName( '|Field|' )|end|

名称: pbn

描述: DataSet ParamByName(根据参数名称获取数据集)

|DataSet|.ParamByName( 'P_|Param|' )|end|

我使用一个程序来自动生成这些代码。完整代码40次仍然太多了。 - nurettin

3
我做了几个模板,节省了很多时间。其中一些取消了属性声明的单调性。然后我创建了一些类型安全的枚举器、对象列表和桶列表。也许我应该为集合做一个,但我还没有做。这些都可以在我的博客上找到。

网页内容由stack overflow 提供, 点击上面的
可以查看英文原文,
原文链接