其他

//我寫了一個函數，傳回值是TStrings類型的，函數如下： function func(s:string):tstrings;var  strS:Tstringlist;begin  strS := TStringList.Create;  strS.insert(0,'00000');  result := strS;  strS.free;end;//調用 ： listbox1.items := func(s);//錯誤，在函數還沒有全部完成之前 strS已經釋放掉了 。

在學習ProcessMessage函數時候看到了這個代碼，沒用過Randomize函數，所以順便學習學習；procedure TForm1.Button1Click(Sender: TObject);var I, J, X, Y: Word;begin I := 0; J := 0; while I < 64000 do begin Randomize; while J < 64000 do begin Y := Random(J);

  1、不列印特定的MemoView，套打常用   a.版面設定-->其它-->不列印背景圖   b.設定MemoView屬性printable=False2、 如何列印wwDBGrid?    修改rm.inc，如果想支援RX,GIF,JPEG,DimandAccess,Halcyon,DBISAM,    EHLib,也需要修改rm.inc    //{$DEFINE InfoPower}   //修改這行，去掉"//"   

一個Label的Caption當作String直接加上下標去相應位置的字元，但是卻報錯，說不相容，請問Delphi中的字串類型有什麼不同啊。謝謝各位大俠！ 建議先搜尋一下離線論壇!

DBChart有一個ChartPreview函數可以預覽dbchart，但是卻是英文的，怎麼把它漢化呢？找到lib目錄下的TeePrevi.dfm檔案，在delphi中開啟它，將裡面介面上英文改為中文，編譯後就ok了。可不要小看這個技巧，這可為我省了不少功夫，現成就有一個功能齊全的幹嘛不加以利用呢。這裡把改前的圖和改後的圖做個對比，看效果怎麼樣。改前：  改後：  怎麼樣，效果還不錯吧。

string s = Convert.ToString(47524, 2); // 轉成二進位 byte byte1 = Convert.ToByte(s.Substring(0, 8), 2); byte byte2 = Convert.ToByte(s.Substring(8), 2); byte[] array = new byte[2] { byte1, byte2 }; MessageBox.Show(System.Text.Encoding.GetEncoding("GB2312")

數類型有：八基本 類定義運算子有  ：算數值 比大小 判真假 取賦值 位元運算流量控制有：兩選擇 三迴圈 流跳轉 函調用  說明：資料類型主要有boolean char byte int short long float double八種基本類型 和類類型運算子主要有：數值運算的+ - * / % ++ -- ；邏輯運算&& || ! & | ^~；關係運算<> != == 賦值運算 = 位元運算 >> <<

百度上這樣解釋：  “定金”是指當事人約定由一方向對方給付的，作為債權擔保的一定數額的貨幣，它屬於一種法律上的擔保方式，目的在於促使債務人履行債務，保障債權人的債權得以實現。簽合約時，對定金必需以書面形式進行約定，同時還應約定定金的數額和交付期限。給付定金一方如果不履行債務，無權要求另一方返還定金；接受定金的一方如果不履行債務，需向另一方雙倍返還債務。債務人履行債務後，依照約定，定金應抵作價款或者收回。     而“訂金”目前我國法律沒有明確規定，它不具備定金所具有的擔保性質，可視為“預付款”，

用本地化資源把自己的項目硬生生地改成了英文版，方法有點笨在本地環境下測試無問題，放到虛擬機器裡面的英文系統好，出問題了提示 selected collating sequence not supported by the operating system到網上查查，大概是說 資料庫排序次序的問題，嗯，水土不服！解決方案如下：1. 開啟Access，開啟任意一個檔案，tools--》Options-》General-》New DataBase Sort Order -》General，關閉檔案。 

07年2月24日我從家坐火車回北京，托熟人買了張臥鋪，整個行程還算舒服，鄰鋪有個小男孩和他媽媽，小男孩看樣子很調皮，蹦蹦跳跳的一會兒都不安靜，不是問這問題就是要零食吃，看到別的小朋友的零食他也忍不住跟他媽媽要。這位母親很和藹的對他講：“是不是別人有的東西，你也一定要有呢”？小男孩想了想說，不是。沒過多會，他又要東要西了。他媽拗不過他，告訴他去用你的零食和小朋友交換。回想自己兒時的教育方式，經常聽到的是“看看人家如何如何”“別人誰誰誰都能怎樣怎樣”，一個人立身行事，思想觀念都基於兒時受到的教育，而

今天遇到一個問題，我自己寫了個加密函數，單向的。驗證的時候明明密文是一樣的，卻驗證通不過。因為加密後的密文有很多都是亂碼，而且明明是4個符號，長度卻是6，所以我想到了可能是編碼不一樣。到csdn上找到了幾個函數：就這兩個就夠了：（支援多國語言的）    AnsiCompareStr(const S1,S2:string):Integer;    AnsiCompareText(const S1,S2:string):Integer;    這兩個用於純的ASCII碼：   

pb中調用sql存儲過程（帶參數和傳回值）////聲明儲存過程：CREATE PROCEDURE proc_pslx ( @NAME varchar(2) ,@count integer output)ASselect @count = Count(*) from wo_info where whs_name=@NAME ;GO //在PB中調用：Integer li_rtnDECLARE lpro_test PROCEDURE FOR proc_pslx @name='C1', @count

我最後終於明白了，人該為自己的行為和選擇負責。 3月26號我考完駕照了，算是個自己28歲的生日禮物了。下一步想把吉它學完，休整一下。前天買了本曾子墨的新書《墨跡》，通宵達旦的讀完了。記得當初只知道她是鳳凰衛視的名主持，人長得漂亮，後來才得知她之前在摩根斯坦利投行工作，並有了很驕人的成績。她的經曆讓我我對她產生了濃厚的興趣，或許更多的是羨慕。平時我大都是買些專業技術書籍，很少把錢花在這類人物傳記休閑類讀物上，而這次我決定要好好的讀讀她。曾子墨小時候就很出類拔萃，高中托福660分北京市第一，保送大學

在寫程式時,會員累計消費需要+消費額,會員餘額需要-消費額,我就用了同一個參數代替消費'額,結果碰了一鼻子灰.讓我頭疼了幾乎一下午,最後還是專案經理指點迷津才得以解決.原來的錯誤碼:  with dataM.Q_xfgl_jz_gxhy do //更改會員消費次數、消費累計金額、卡內餘額等資訊   begin    close;    sql.Clear;    sql.Add('UPDATE hy SET hy_xfje = hy_xfje+:xfje, hy_xfcs = hy_xfcs+1

最近工行在進行一次人力資源提升,主要是進行人員崗位和薪水調整.我報了兩個外部門,部門經理李志江看到報表後打電話告訴我,這次調整其實是分行鼓勵大家報外部門,我當然就決定不在修改志願了,等到徐副總看到我的志願,又給我打電話說,目前資訊科技部人員是比較搶手,如果有意願出去,肯定會被錄取.但希望我不要走.還問我對目前的工作是不是有什麼不滿意的地方.我回答沒有不滿意的地方,就是覺得業務知識還不熟悉.最後我還是聽從了副總的建議,留下來了.部門經理知道後說,還是徐總比我會做思想工作.事後我知道有位同事也是報了

//字串與字元數組 var  arr: array[0..5] of Char;  str: string;begin  {可以把字串常量直接賦給字元數組; 但超界不行}  arr := 'Delphi';  ShowMessage(arr); {Delphi}  {可以把字元數組直接賦給字串變數}  str := arr;  ShowMessage(str); {Delphi}  {但不能把一個字串變數賦給字元數組}  //arr := str;     {錯誤}

查閱不少關於Factory 方法模式的介紹，http://luchar.javaeye.com/blog/179616 的文章對我的理解最為深刻，為了加深理解，加入了一些自己的理解並使用自己的代碼例子來說明： 原廠模式是負責將大量擁有共同介面的類執行個體化，而且不必事Crowdsourced Security Testing道每次是要執行個體化哪一個類的模式。 為了更好的理解Factory

1、保持合適的列寬且充滿整個地區cxgrid預設情況下，列有一個屬性MinWidth，這個屬性預設情況下是20，把它改為0。然後把cxgridview的columnAutoWidth設定為true。這樣列寬就會在充滿整個地區的基礎上，根據設計時候的長度進行微調。再也不會在dataset open之後胡亂變換長度了。2、隔行換色不能在gridDrawCell事件下寫類似於這種的著色代碼：  {if   AViewInfo.RecordViewInfo.Index   mod   2   =   0

 上一篇學習了原廠模式的簡單工廠和Factory 方法，現在繼續學習原廠模式的第三種形態：抽象工廠，前面我們的學習的原廠模式都是一個工廠建立一個產品，但如果需要一個工廠建立多個產品的話，就需要我們學習抽象原廠模式了，其實基本原理還是和Factory 方法類似的，只不過將抽象工廠類放入了更多需要具體工廠實現的產品介面而已，下面用例子來說明。 抽象產品ProductApublic interface ProductA {}抽象產品ProductBpublic interface ProductB {

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin //水平垂直均可隱藏 WebBrowser1.oleobject.Document.body.Scroll := 'no'; WebBrowser1.oleobject.Document.documentElement.style.overflow :=