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
相关问答：
程序使用的是Orcal数据库，想定期（每季度）对数据库进行备份，没啥头绪，请问应该怎么弄？
有什么特殊要求吗，比如要前端界面？
一般用数据库自带的“计划任务”配置一下就够了
没有什么特殊要求。例如，只要� ......
具体要求与报酬QQ729851670
771234717
“拼音编程”是什么意思
引用
“拼音编程”是什么意思
1.给一个字可以显示拼音，多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......
定义变量s,sql为string类型，s为函数参数，sql：='select field1 from table1 where'+s;运行时s赋值为id>7或者id<7、id=7,但是运行时总是出错，请各位帮我改错，多谢！
showMessage(sql)下看看
sql：='sel ......
用delphi的现有控件写收发数据的测试，在两台机器上试，结果网速是100M的，带宽最高只能用到30%至50%，是不是应该通过网卡驱动什么的直接做收发数据的代码？我是在要做一个极速情况下网络数据收发程序，那位有做过或 ......
大侠们帮忙看一下，用spcomm控件进行串口通信。
发送数据：
procedure TForm1.Button2Click(Sender: TObject);
var
strPressure:string;
begin
strPressure:='SEND'+#13;
comm ......
