程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 第一個delphi for php的小程序:簡單加法

第一個delphi for php的小程序:簡單加法

編輯:Delphi

 今天花了一個小時寫了一個小程序,我的delphi PHP的第一個程序。功能是在浏覽器上顯示一道簡單的加法題,用戶可以輸入答案,電腦會告訴你正確或者錯誤,然後可以再來一題。功能很簡單,主要為了熟悉Delphi for php,寫的時候,不時地查閱php幫助,發現這次codegear的PHP幫助做的還是不錯的。

  程序如下:

//Includes
require_once(”vcl/vcl.inc.PHP”);
use_unit(”forms.inc.PHP”);
use_unit(”extctrls.inc.PHP”);
use_unit(”stdctrls.inc.PHP”);
  //Class definition
class Unit3 extends Page
{
public $txtAnswer = null;
public $btnB = null;
public $btnA = null;
public $btnRun = null;
public $lblMsg = null;
public $Button4 = null;
public $Button2 = null;
  function btnRunClick($sender, $params)
{
$a=rand(1,9);
$b=rand(1,9);
  $this->btnA->Caption=$a;
$this->btnB->Caption=$b;
  $this->lblMsg->Caption=” “;
$this->txtAnswer->Text=” “;
  }
  function txtAnswerSubmit($sender, $params)
{
global $a;
global $b;
global $c0;
global $c1;
  $a=$this->btnA->Caption;
$b=$this->btnB->Caption;
$c0=$a+$b;
$c1=$this->txtAnswer->Text;
  if ($c0==$c1){$this->lblMsg->Caption=”Right”;
} else {$this->lblMsg->Caption=”Wrong”;
}
  }
  }
  global $application;
  global $Unit3;
  //Creates the form
$Unit3=new Unit3($application);
  //Read from resource file
$Unit3->loadResource(__FILE__);
  //Shows the form
$Unit3->show();
  ?>

  第一次寫PHP有以下感受:

  1 delphi4php的IDE很強,速度還是比較快的,並且有了vcl4PHP這樣的強大武器以後,其他諸如zend的IDE可以徹底忘記了。Delphi的IDE的流暢感覺只有vs可以相比。

  2 $this->lblMsg 這樣的對象寫法,上來總是不適應,因為沒有怎麼好好看PHP5的書,後來看了幾個例子,基本上明白了。其實和Delphi原來的面向對象的體系幾乎是一樣的,只是語法不同而已,因為代碼提示的速度很快,所以如果沒有出來代碼提示,就可以認為是寫錯了。

  3 寫$this很羅嗦,不知道有沒有辦法可以簡化。

  4 因為是面向對象的,所以只需要考慮其中的事件處理,上面的代碼中只有兩個內部的function的代碼是寫的,別的都是Delphi自動生成。

  5 以上程序有一個小錯誤,就是當Again按鈕點擊後,在請空text的值得時候,會發送一個submit,導致label顯示wrong的信息。我想可以用一個表示狀態的變量來進行全局控制。

  6 每一句都要用;結束,特別是在if中的語句,這點和pascal有些不同。

  7 強大的IDE可以判斷{}的層次,不至於出錯。

  8 感覺這樣的例子寫法幾乎和Windows原生程序沒有什麼差別。並且比起intraweb也簡單很多。PHP到底很強啊,Delphi則更強。

  9 用向導生成的php代碼送到dh和surpass上都不能正常運行。dh的出錯信息好像是不支持inc.php這樣的後綴,因為我不能修改dh上安裝的PHP設置文件,只好有機會自己搭建一台apache的服務起來測試了。Delphi4PHP自己在調試的時候用的就是apache,我想應該是設置上的問題。

  10 據說Delphi4PHP對於中文支持不好,還沒有測試。

  11 檢查語法正確功能沒有快捷鍵不太方便。

  慢慢繼續研究。


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved