千奇百怪的代码书写风格，请大家一起收集

procedure TForm5.RzTreeView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  AnItem: TTreeNode;
begin
  if Button=mbRight then  //用户按下右键得到当前结点值并启用快捷菜单
  begin
    AnItem:=RzTreeView1.GetNodeAt(X, Y);
    if AnItem<>nil then
    begin
      RzTreeView1.Selected:=AnItem;
      if rztreeview1.PopupMenu=SBPM then
      begin
        if AnItem.Level=0 then
        begin
          SBPM.Items[0].Visible:=true;
          SBPM.Items[1].Visible:=false;
          SBPM.Items[2].Visible:=false;
          SBPM.Items[3].Visible:=false;
        end
        else if AnItem.Level=1 then
        begin
          SBPM.Items[0].Visible:=false;
          SBPM.Items[1].Visible:=true;
          SBPM.Items[2].Visible:=true;
          SBPM.Items[3].Visible:=false;
        end
        else if AnItem.Level=2 then
        begin
          SBPM.Items[0].Visible:=false;
          SBPM.Items[1].Visible:=false;
          SBPM.Items[2].Visible:=false;
          SBPM.Items[3].Visible:=true;
        end
      end;
    end;
  end;
end;

我只以D4DG公布的编程标准为标准写程序。

if ... then
  begin
    dosome();
  end;

delphi这方面比vb差多了，很不习惯delphi编写风格，比喻一些自定的变量、控件的属性等，不会自动变成大小写结合输写方式，而且很多关键字不变色......真想fuck me!!!!!!!......

我要一个能将代码整理成标准形式的软件?谁有发给我 [email protected]谢谢！

No.2 使用两个空格符递进
No.3 关键字小写Delphi5开发人员指南的第六章(代码标准文档)比较好

如果是一句：
if Condition then DoSomething;
如果多个条件
if Condition then
  DoSomething1
else if Condition2 then
  DoSomething2
else
  DoSomething3;
如果多句
if Condition then
begin
  DoSomthing
  DoSomthing2
  ...
end;

No.4 类字段名用f前缀,一般是class中的private字段才用f前缀。

if a=1 then
   begin
     if c=1 then
        begin
          showmessage('asdfsd');
        end;
   end;

to jiaorg:呵呵，我以前也是这样的风格是从书上学的

>>不会自动变成大小写结合输写方式，
ctrl+空格
>>而且很多关键字不变色.
自己设置

Ctrl+[空格] { 或者 } Ctrl+Win+[空格]

TO jiaorg(jiaorg)
我也是，呵呵with xx do begin
do ....
end;

i likeif a = 1 then
begin
  if c = 1 then
  begin
    ShowMessage('asdfsd');
  end;
end;反正跟Delphi默认的一墨一样，就没有问题。

If ... then Begin
...
End Else Begin
...
End;

try
  ...
  try
    ...
  finally
    ...
  end;
except  //将异常屏蔽掉！！！
end;

to softwing(无人喝彩)
try
  ...
  try
    ...
  except //将异常屏蔽掉！！！
    ...
  end;
finally
end;
和你不一样呢

异常处理得有，begin end对号，还有我喜欢变量名用拼音，而且有拼音的地方就加注释

类中的变量前加m,全局变量前加g,类定义用ITISelfClass = class(TObject);
  private
    m_MyVariant : string;
  ....
end;var
  g_MyVariant : variant;全部的关键字都用小写function procedure proprety public published override constructor destructor等等。

???!!!@@@###$$$%%%^^^&&&***

var
  I : Integer;
  Str : String;
begin
  Str := Edit5.Text;
  if Str[Length(Edit5.Text)] = '-' then
  begin
    Edit5.Clear ;
    for I := 2 to Length(Edit5.Text)-1 do
    begin
      Edit5.Text := Edit5.Text + Str[I-1];
    end;// I :=...
  end; // if Str[I]...

哈哈，我总习惯这样
var
  I : Integer;
  Str : String;
begin
  Str:=Edit5.Text;
  if Str[Length(Edit5.Text)]='-' then
  begin
    Edit5.Clear ;
    for I:=2 to Length(Edit5.Text)-1 do
       Edit5.Text:=Edit5.Text+Str[I-1];
  end; // if Str[I]...

to torble:我和你一样！就是有把begin放到后面的“坏习惯”
if EditCode.Text = '' then begin
ShowMessage('编号不能为空');
Exit;
end;

我不爱把begin 放在后面,放在最前面

我是从VB转过来的，喜欢缩进4个空格,喜欢在“＝”前后都加空格。
var i: string;
begin
i := i + 1;
end;
可能不是一个好习惯～～～:(

Delphi软件开发规范
（暂定，待总体组规范再统一修改）
一：命名规范
序号内容规范备注
1. 窗口 1窗口的命名以Form_开头
2窗口名称的后缀为与窗口功能相关联内容的拼音首字母
2. 报表窗口 1窗口的命名以Rpt_开头
2窗口名称的后缀为与窗口功能相关联内容的拼音首字母
3. 单元 1以窗口名称除Form之外的名称
2报表窗口的再在前面加上DY前缀
4. 菜单 1菜单的命名以Menu开头
2菜单名称的后缀为本菜单对应的主窗口名
5. 函数 1函数的命名以Fun开头
2函数名称的后缀为与函数功能相关联内容的拼音首字母
6. 过程 1过程的命名以Pro开头
2过程名称的后缀为与过程功能相关联内容的拼音首字母
7. 控件 1控件的命名以控件名称的首4位开头
2Query和Table均直接以Query和Table开头
3控件名称的后缀为与过程功能相关联内容的拼音首字母（长度为4位）
8. 全局变量 1系统全局变量以G开头
2当前单元变量以U开头
3局部变量以L开头
4后缀为与变量功能相关联内容的拼音首字母
9. 常量 1常量以Con开头
2后缀为与常量量功能相关联内容的拼音首字母
备注：命名采用大小写混排      规定：系统前缀第一个字符为大写。二：界面规范
1.系统采用800 X 600象素，Windows标准字体
2.界面风格要求：简洁明了，界面整齐。
3.字体规定：
字体：MS Sans Serif
样式：规则
大小：10
4.字体颜色：
控件颜色
Label 深蓝色
可编辑Edit 黑色
不可编辑Edit 深青色
Checkbox 深蓝色
RadioButton 深蓝色
Grid的标题深蓝色
Grid的内容黑色
其它黑色
不可编辑的
Edit、Combobox控件等背景变灰。5.窗口规定：
BorderIcons=false（所有）
Position=poDesktopCenter
WindowState=wsNormal
主窗口WindowState=wsMaximized
6.主要窗体加上控件StatusBar，高度= 25
7.按纽尺寸：30 X 100 / 30 X 80
8.快捷规定：
         只有按纽和菜单提供快捷方式
按纽快捷规定
退出 Q
增加 A
修改 M
删除 D
浏览 S
确定 Y
放弃 N
统计 C
保存 B
打印 P
清屏 E
帮助 H
信息入库 I
数据刷新 R
读取文件 F三：编码规范
1.注释：
1) 在一开始处严格按如下格式写出注释：
////////////////////////////////
// 过程（或函数）名：         //
// 功能描述：                 //
// 参数说明：                 //
// 返回值：                   //
// 时间：                     //
// 修改者：                   //
// 修改时间：                 //
////////////////////////////////2) 在重要的程序段和难懂的程序段加上注释。
3) 修改之处加上注释，包括：修改者，修改时间，修改原因。
4) “//”注释用于对程序的注解等。
5) “{}”注释用于对程序修改时临时删除部分程序代码。
2.书写格式：
1) 用分层缩进的写法显示嵌套结构的层次。
2) 在注释段与程序段、以及不同程序段插入空行。
3) 每行只写一条语句。
四：其他
1.系统提供统一的提示/提示选择窗口。
2.除实际需要，系统不提供实时触发功能。
3.对于Edit需要规定输入长度。
4.对于Combobox需要注意其是否可以输入。
5.需要对Edit、Combbox等控件的TAB键的顺序进行设置。
6.消除所有的隐藏性错误及保护性错误。
7.对于数据库表浏览等操作，建议不要使用Table控件。
8.控件提示是使用HINT
9.使用新控件时,需要先向主设人员申请，经同意后方可使用，并将新控件交与主设人员统一备份
10.主FORM的OnCloseQuery事件中加上以下语句Form1.BorderIcons:=Form1.BorderIcons+[biMaximize]

其实大家可以参考.net里的书写风格,你用一下就知道啦
有些人喜欢空2格,.net里面空4格

我来说说begin end
for i:= 1 to 99 do begin
  ...
end;if i=1 then begin
  ...
end else begin
  ...
endl;if i=1 then begin
  ...
end else if i=2 then begin
  ...
end else if i=3 then begin
  ...
end;我个人认为begin不应重开一行写

表示次数的变量后面+num我讨厌delphi所谓的数据结构的严谨，我现在还弄不清什么是pchar char，char跟string有啥区别我是从vb过来的看着showmessage(inttostr(DelphiBeenFuckedNum));就不爽
vb就很舒服msgbox(vbisok)算算delphi程序员为了这个所谓的严谨多press了多少次键盘
而且for一次就要begin+end，真讨厌！不过
嫁鸡随鸡，加狗随狗，既然选择了delphi就死心塌地的好好干，随让我耐她呢

procedure TDelphiFans.SayHello(Who: TProgrammer);
var
  His: TProgrammer absolute Who;
  Enemy: TProgrammer absolute Who;
begin
  if Who is TDelphiFans then
    ShowMessage(Format('Hello, %s!', [His.Name]))
  else
    TryToKick(Enemy);
end;

调试易

千奇百怪的代码书写风格，请大家一起收集

解决方案 »