簡單的處理Delphi程式在小數點進位的問題，可以用以下函數：
1 2 3 4 5 6 7 8 9 10 | function myRound(x : extended) : extended; begin if (int(x) * 10 + 5) > int(x * 10) then begin result := floor(x); end else begin result := ceil(x); end; end; |
1 | 這個 myRound()函數會保留小位點一位，需要增加位數可以自己修改。 |
想要在Delphi程式中簡單的操作系統的剪貼簿，可以使用下列方法：
1 2 3 4 5 | uses Clipbrd; procedure TForm1.btnCopyClick(Sender: TObject); begin Edit1.CopyToClipboard;//將 Edit1 的文字複製到剪貼簿 Clipboard.AsText := Edit1.Text; |
1 2 3 4 | //同樣將 Edit1 的內容複製到剪貼簿(需要 uses Clipbrd;) Edit2.PasteFromClipboard;//將剪貼簿內容複製到 Edit2 Clipboard.Clear;//清空剪貼簿(需要 uses Clipbrd;) end; |
一個滿好玩的開放原始碼的 PHP Object Generator (簡稱 POG)網站。能夠幫助程式設計師快速的產生具有 CRUD (Create、Read、Update、Delete)功能的 PHP database 物件程式碼。
只要簡單的三大步驟，首先輸入所使用的 PHP 語言版本(PHP4、PHP5、PHP5.1+)以及資料庫系統(目前只有看到 MySQL 的版本)，再來輸入你想要的物件名稱，然後依序輸入所需要的欄位名稱與型態，預設只有三個欄位當然是不夠的，可以按下 [+ Add attribute] 按鈕來增加欄位數，最後按下 Generate code 的送出按鈕。
哇啦，程式碼就出來了，連建立資料表的 SQL 語法都幫你產生好了。所產生的程式碼會自動幫你加入一個以物件名稱加上 id 當作欄位名稱的自動編號欄位作為主鍵。
不過單就所產生出來的程式碼來說，對於想學習 PHP 程式設計的人很具有參考價值喔。
發現這個不錯的網站 http://www.computer-books.us/ 有許多種程式設計的電子書的分享，目前有看到的類別如下：
可以算是很豐富的收藏，不過這些書籍的年代可能有些歷史。
在 PHP 程式中用 mail() 寄出郵件，最簡單的用法如下：
<?php
$header = “From:My Name<my_name@mydomain.com>”;
mail($to, $subject, $email_body, $header);
?>
這樣的處理方式，當信件傳送到到 mail server 之後，系統會以預設的電子郵件地址代替(例如 me@localhost )。
因為上列程式碼只有設定郵件標頭的 From 內容，在目前 spam mail 猖獗的時代是不夠完善的。
大多數的 mail server 都會將這類的 mail 直接擋掉或是標記成 spam 而導致收件人收不到 mail 的困擾。
可以將程式碼改成下列內容，增加指定 Return-Path 屬性來解決問題：
<?php
$header = “From:My Name<my_name@mydomain.com>\r\n”;
$header .= “Reply-To: My Name<my_name@mydomain.com>\r\n”;
$header .= “Return-Path: My Name<my_name@mydomain.com>\r\n”;
mail($to, $subject, $email_body, $header);
?>
