写作程序格式大调查？

Question

procedure TF_1.Button1Click(Sender: TObject);
begin  F_0.DataSource1.DataSet.Close ;
  F_0.DCOMConnection1.Connected := False ;end;procedure TF_1.Button2Click(Sender: TObject);
begin  F_0.DCOMConnection1.Connected := True ;
  F_0.ClientDataSet1.Open ;end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin  if Key <> #$D then
    exit ;
  Application.MessageBox( '抱歉，请检查语句的正确性！' , '提示' , MB_OK + 
                         MB_ICONINFORMATION ) ;end;

Answer 1

procedure TF_1.Button1Click(Sender: TObject);
begin
  F_0.DataSource1.DataSet.Close;
  F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
  F_0.DCOMConnection1.Connected := True;
  F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key<>#$D then
    exit;
  Application.MessageBox('抱歉，请检查语句的正确性！','提示',MB_OK+MB_ICONINFORMATION);
end;

Answer 2

我全用tab键格开。
:=两边各空一格。
;号前空一格。

Answer 3

procedure TfrmMain.btnShowOkClick(Sender: TObject);
begin
  ShowMessage('OK');
end;procedure TfrmMain.edtShowBoxKeyPress(Sender: TObject; var Key: Char);
begin  if Key <> #$D then
    exit ;
  Application.MessageBox(CHECKINPUT ,TILTLEHINT , MB_OK + 
                        MB_ICONINFORMATION ) ;end;unit strResource;const 
  CHEKINPUT = '语句输入错误!';
  TITLEHINT  = '提示';

Answer 4

procedure TF_1.Button1Click(Sender: TObject);
begin
  F_0.DataSource1.DataSet.Close;
  F_0.DCOMConnection1.Connected:=False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
  F_0.DCOMConnection1.Connected:=True;
  F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key<>#$D then
    exit;
  Application.MessageBox( '抱歉，请检查语句的正确性！' , '提示' , MB_OK + 
                        MB_ICONINFORMATION ) ;
end;

Answer 5

procedure TF_1.Button1Click(Sender: TObject);
begin
  F_0.DataSource1.DataSet.Close;
  F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
  F_0.DCOMConnection1.Connected := True;
  F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key<>#$D then
    exit;
  Application.MessageBox('抱歉，请检查语句的正确性！','提示',MB_OK+MB_ICONINFORMATION);
end;

Answer 6

procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key<>#$D then
    MessageBox('请检查语句的正确性','语句出错',MB_OK+MB_ICONERROR);
end;
干吗文绉绉的？ 余同。

Answer 7

procedure TF_1.Button1Click(Sender: TObject);
begin
  F_0.DataSource1.DataSet.Close;
  F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
  F_0.DCOMConnection1.Connected := True;
  F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key<>#$D then
    exit;
  Application.MessageBox('抱歉，请检查语句的正确性！','提示',MB_OK+MB_ICONINFORMATION);
end;

Answer 8

更正—
procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#$D then
    MessageBox('请检查语句的正确性','语句出错',MB_OK+MB_ICONERROR);
end;
干吗文绉绉的？ 余同。 

Answer 9

procedure TF_1.Button1Click(Sender: TObject);
begin
  F_0.DataSource1.DataSet.Close;
  F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
  F_0.DCOMConnection1.Connected := True;
  F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key<>#$D then
    exit;
  Application.MessageBox('抱歉，请检查语句的正确性！','提示',MB_OK+MB_ICONINFORMATION);
end; 

Answer 10

procedure TF_1.Button1Click(Sender: TObject);
begin
  F_0.DataSource1.DataSet.Close;
  F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
  F_0.DCOMConnection1.Connected := True;
  F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key <> #$D then                                                   |
  exit ;                                                               |分界线
  Application.MessageBox( '抱歉，请检查语句的正确性！' , '提示' , MB_OK +|   MB_ICONINFORMATION ) ;
end;

Answer 11

procedure TF_1.Button1Click(Sender: TObject);
begin
 F_0.DataSource1.DataSet.Close;
 F_0.DCOMConnection1.Connected := False;
end;procedure TF_1.Button2Click(Sender: TObject);
begin
 F_0.DCOMConnection1.Connected := True;
 F_0.ClientDataSet1.Open;
end;procedure TF_1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key<>#$D then exit;
 Application.MessageBox( '抱歉，请检查语句的正确性！' , '提示' , MB_OK +&brvbar;  MB_ICONINFORMATION ) ;
end;

Answer 12

procedure TForm1.Button1Click(Sender:TObject);
begin
  if 您的缩进<>两个空格 then
    ShowMessage('您的写作风格不符合Delphi书写规范!这并不影响你的程序编译,但会影响阅读')
  else
    ShowMessage('请参见《Delphi程序书写规范》');
end;

Answer 13

我认为tab键比两个空格所占的字节要少。
所以用tab