写这样的代码是不是很烂啊。。 能否走得出去？（女程序员想换个工作了） (100分)

建议好好学习一下Borland的“代码编写标准”
特别是其中的变量命名部分，代码缩进要统一
每个过程，函数都要有功能说明，参数说明，
返回值说明，关键代码要有注释。
没有良好风格，别人没法和你一起干活。
一个Button，叫button5 和叫 btnReport 是有
极大区别的，在工作过程会节省自己和别人的
大量时间。
做好项目分析，写好文档，磨刀不误砍柴工。
写好一段代码，停下来看看，想想别人能不能看懂，
是不是最简洁，有没有完美的感觉，如果自己都觉
得不满意，改好再继续，不要马虎应付。
 
谢谢你的建议。。。
我一定会更加注意这方面的。。
 
to Adnil,leisure，感觉二位的回复。
请到这里取分：http://www.delphibbs.com/delphibbs/dispq.asp?lid=1469786
 
看的我好眼晕啊。这个程序，如果放两个月你不看，回头再看，你自己能看明白么？
多看看别人写的优秀代码，比如自己带的例子，其他组件的原代码，很有好处的。
习惯慢慢就养成了。
 
太长了，不如找个男人容易
 
吓死我了, 我还以为我的笔记本怎么了呢, 死了半天...[:(]
代码没细看, 一眼看到了这个函数. 这个函数表明你已经有了一些技巧, 至少
可以说有人帮过你[:)]. 不过, 这段代码对于这个项目来说并不适合, 因为他
太不直观, 其实可以有很直观的方法来实现. 而且从逻辑上有些让人迷惑的.
你完全可以定一个客户类型表或者配置文件, 这样便于扩充和查找. 没有必要非
得用枚举类型
function GetCustomerType(const customer: string): integer;
{Return: -1表示此客户未定义属于哪一类型,0表示是DELL类客户,1表示是HP类客户}
var
THpP,TDellP: PTypeInfo;
Hpi,Delli: Integer;
begin
Result:=-1;
THpP:=TypeInfo(TEnumHP);
//这些都是熟练用户才知道的
TDellP:=TypeInfo(TEnumDell);
Hpi:=GetEnumValue(THpP,customer);
Delli:=GetEnumValue(TDellP,customer);
if (Delli=-1) and (Hpi=-1) then
Result:=-1
else
begin
if (Hpi=-1) then
Result:=0;
//这地方如果一眼看上去很难理解你的逻辑
if (Delli=-1) then
Result:=1;

end;
end;

 
很不错，有点技巧，至少Delphi比较熟练，只是要注意一些细点问题。
 
其实我自己都觉得这代码不好啦。。。
接触DELPHI一年多了..快两年了...不过一般都是我一个人在写..所以没太在意细节...
与没人探讨,只能在DFW上面多多学习了..
不过,这是5月份写的..后来我也学着看DELPHI中的源码...会写一些简单的组件了...
如果重新写过大概会好些...
谢谢大家的批评与建议...特别感谢tseug..
我很喜欢这行并希望自己能成为一个优秀的程序员..所以还望大家多多指教!

 
呵呵，dfw是好地方，多来提高会很快：）
 
允许出去，给你开个证明。
在大富翁，我也受益匪浅。人民的智慧岂能一个人相比拟啊。
 
女中豪杰啊。走到哪里都吃的开啊。
 
太長了..............
 
没有最好只有更好
 
您必须登录或注册才可回复。

Similar threads

I
去掉代码中的注释
回复
0
查看
617
import
I
I
五子棋
回复
0
查看
632
import
I
I
作一个类似PhotoShop那样的取色板
回复
0
查看
527
import
I
I
不规则窗体移动时如何去掉虚框
回复
0
查看
582
import
I
I
傅立叶变换
回复
0
查看
487
import
I
顶部