什么样的代码看起来才舒服?(300)

一眼就能看懂的就舒服代码格式再规范，一眼看去没一个眼熟的怎么也舒服不了，所以，想舒服就多学点东西吧

我的最罗嗦，但是我的最舒服：//// 激活一个被动传输任务处理线程的过程...procedure TQBService.ActiveRProcessThread;var i,j: integer;begin//// 假如超过并发数，不再激活... if ActiveRProcessThreads>=s_RProcessThreadMax then exit;//// 判断有没有空的项... j:=-1; for i:=0 to RProcessThreadCount-1 do if not assigned(RProcessThreads) then {线程终止的表项才分配} begin j:=i; break; end;//// 假如没有，建立新的... if j=-1 then begin j:=RProcessThreadCount; {线程组向上增长} inc(RProcessThreadCount); setlength(RProcessThreads,RProcessThreadCount); end;//// 创建并激活线程... inc(ActiveRProcessThreads); {活动线程数+1} RProcessThreads[j]:=TRProcessThread.Create(true); {创建线程} RProcessThreads[j].Resume; {激活线程}end;

楼上的虽然有点罗嗦，但在复杂的代码中却十分有用，尤其是当新人看时，比较容易看懂，我在很复杂的代码中也会加上大量的注释。

看 VCL 源码时， 也可以留意一下它的代码风格啊``， 呵呵。来自：muhx, 时间：2009-8-8 3:19:41, ID：3971155 自己写的代码，至少保持前后风格的统一而你的这些代码从格式上就不统一我一直觉得好的程序员是有洁癖的我很认同， 这样的话， 有些时候程序在不能运行时也得接着往下写， 所以会辅助提示没有用了， 就得“盲写”， 这时风格的统一就相当重要了。当然写程序时应当尽可能的保证程序随时都可以运行```

初看这么眼熟。细看还真是自己的代码呢。不管楼上各位怎么“批评”和“打击”我这样的“垃圾代码” 我还就是这样写。 if DownRet=S_OK then begin if Assigned(FOnComplete) then FOnComplete(Self); end else begin if Assigned(FOnFail) then FOnFail(Self,DownRet); end;和 if DownRet = S_OK then if Assigned(FOnComplete) then FOnComplete(Self) else if Assigned(FOnFail) then FOnFail(Self, DownRet);孰好孰坏 孰是孰非 一点意思都没有。我只能说 我只能这么写。只有这么写 我才不会看出歧义。就像我写C代码 虽然按照运算符优先级一个表达式是正确的 我还是愿意多加一对括弧。Pascal的begin和end？我习惯于让配对的begin和end在列单位上对齐。也就是说，我倾向于elsebeginend而不是 else beginend“有些时候程序在不能运行时也得接着往下写， 所以会辅助提示没有用了， 就得“盲写”， 这时风格的统一就相当重要了。当然写程序时应当尽可能的保证程序随时都可以运行```”很赞同liuls这一句。用不用cnpack这样的工具。我写代码都严格要求对齐和大小写。你们贴的我这一段垃圾代码 这方面应该没有犯大错。对于注释方面。在下以为 良好的标识符命名风格和条理清晰的逻辑 完全可以取代很多鸡肋注释。如果是一段很艰深的代码 无论你注释多详细 菜鸟看不懂还是看不懂。尤其是在Delphi的代码编辑器里 我一个中文都不想看到。但是又没楼上各位强人的本事 我写不出英文注释 OK？

多人接受答案了。