delphi书写格则? - Delphi / 非技术区
在网上看到很多人写程序代码,写的代码每一行都是要么就空一个空格,要么就空好几个,这个有规定吗?怎么看?
以下是我在网上找的一段程序代码
===============================================================================
procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real);
var
I,J:integer; SUM:real;
begin
For I:=1 To N do
begin
Sum:=B[I];
For J:=1 To I - 1 do
Sum:=Sum - A[I, J] * B[J];
B[I]:=Sum;
end;
For I:=N DownTo 1 do
begin
If D[I] = 0 Then
begin
ShowMessage('Singular Matrix');
Exit;
end
Else
Sum:=B[I] / D[I];
For J:=I + 1 To N do
Sum:=Sum - A[J, I] * B[J];
B[I]:=Sum;
end;
end;
为什么不能写成这样?
===============================================================================
procedure CHOBSB(A:MATRX2; N:integer; D:array of real;var B:array of real);
var
I,J:integer; SUM:real;
begin
For I:=1 To N do
begin
Sum:=B[I];
For J:=1 To I - 1 do
Sum:=Sum - A[I, J] * B[J];
B[I]:=Sum;
end;
For I:=N DownTo 1 do
begin
If D[I] = 0 Then
begin
相关问答：
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
程序使用的是Orcal数据库，想定期（每季度）对数据库进行备份，没啥头绪，请问应该怎么弄？
有什么特殊要求吗，比如要前端界面？
一般用数据库自带的“计划任务”配置一下就够了
没有什么特殊要求。例如，只要� ......
var
FXmlDoc:IXMLDomDocument;
begin
使用FXmlDoc.save('文件路径')；
结果发现保存后的该文件中文全部为乱码，如何解决
end；
参考这个
http://blog.csdn.net/jiangnanandi/archive/2008/11/28/3399804.aspx ......
你们遇到这个问题吗？使用delphi 的时候，来了一封信。说要我教版权费。我昏倒。怎么办？
不能怎么办,一是理他们 2是不理他们
你放话叫他们来公司查。。。看他们有胆没？
不理他们就是，当时也问我们公司要的 ......
大侠们帮忙看一下，用spcomm控件进行串口通信。
发送数据：
procedure TForm1.Button2Click(Sender: TObject);
var
strPressure:string;
begin
strPressure:='SEND'+#13;
comm ......
