delphi书写格则?

Question

在网上看到很多人写程序代码,写的代码每一行都是要么就空一个空格,要么就空好几个,这个有规定吗?怎么看?以下是我在网上找的一段程序代码===============================================================================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
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;

Answer 1

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;

Answer 2

郁闷,复制的时候空很多的,粘贴的时候怎么就不见了?
============================================
Delphi(Pascal) code
var
keyhhk: HHOOK ;
Function keyproc(icode,wp,lp:integer):DWORD;stdcall;   //键盘HOOK回调函数
begin
  if (icode=HC_ACTION) then
            begin
              if (wp=VK_HOME)and ((1 shl 31)and lp=0) then
              begin
             if form1=nil then  Form1:=Tform1.Create(nil);
                form1.Visible:=not form1.Visible;
              end;
            end;
 keyProc:=CallNextHookEx(keyhhk,icode,wp,lp);
end;
Function installKeyProc():boolean;stdcall;
var
 h:HWND;
 GameTid:THandle;
begin
    Result:=false;
        h:=FindWindow(nil,'武林外传11');
    if h=0 then begin Messagebox(0,'未找到游戏','error',0);exit; end;//如果游戏未打开则退出
    GameTid:=GetWindowThreadProcessId(h);
    keyhhk:=SetWindowsHookEx(WH_KEYBOARD,@Keyproc,GetModuleHandle('HookDll.dll'),GameTid);
    if keyhhk>0 then Result:=true;
end;
procedure DllEnterProc(reason:integer);
begin
   case reason of
   windows.DLL_PROCESS_ATTACH: begin end;
   windows.DLL_PROCESS_DETACH: begin Form1.Free;form1:=nil; end;
   end;
end;
exports   //导出函数
  installKeyProc;begin
dllProc:=@DllEnterProc;
end.

Answer 3

Delphi 的书写格式是以;为一行结束,你想把一行写成几行都没问题,只要最后一样结尾是";"
不然会编译报错.

Answer 4

用CNPACK 很美观   顶

Answer 5

delphi的ide中自己就可以帮你规范化格式，鼠标右键中有个什么format的，具体记不清了。

Answer 6

晕，你复制代码能不能用pascal标记一下，明白你的意思，但看着代码不爽。
pascal的风格就是这样的，

Answer 7

发帖上面有个插入源代码选择Pascal就可以有格式了