原创 TreeView 葉子代碼選中後有蘭色背景色的效果
fmeEvtReg1.tvEvtType.SetFocus; fmeEvtReg1.tvEvtType.Items[i].Sel
2020-02-24 01:37:03
原创 讀oracle圖片
var Bmp: TBitmap; Jpg: TJPEGImage; ms:TStream; ms:=frmMain.qryMain.CreateBlobStream(frmMain.qryMain.FieldBy
2020-02-24 01:37:03
原创 主菜單中"窗口"子菜單的簡單實現辦法
但是必須先用一橫線佔一個子菜單位,不然彈不出來 procedure TFrmStart.N4Click(Sender: TObject);//N4其caption爲"窗口"var popItem:TMenuItem; i:intege
2020-02-24 01:37:03
原创 Delphi開發中的一些細節問題
控件名不要以close,create等一些delphi中使用的關鍵字命令變量名也不要跟控件名相同(oracle存儲過程和函數的參數名也不要跟字段名相同
2020-02-24 01:37:03
原创 在delphi端構建數據庫事務
// ADODataSet_Main.LockType := ltBatchOptimistic; // ADODataSet_Detail.L
2020-02-24 01:37:03
原创 delphi的socket通訊
ClientSocket組件爲客戶端組件。它是通信的請求方，也就是說，它是主動地與服務器端建立連接。 ServerSocket組件爲服務器端組件。它是通信的響應方，也就是說，它的動作是監聽以及被動接受客戶端的連接請求，並對請求進行回覆。
2018-08-24 22:12:40
原创 delphi的指針
大家都認爲，C語言之所以強大，以及其自由性，很大部分體現在其靈活的指針運用上。因此，說指針是C語言的靈魂，一點都不爲過。同時，這種說法也讓很多人 產生誤解，似乎只有C語言的指針才能算指針。Basic不支持指
2018-08-24 22:12:40
2
原创 delphi定義二維數組
procedure TForm1.Button1Click(Sender: TObject);var A :array of array of string; I,J:Integer;begin Se
2018-08-24 22:12:39
原创 一種全局變量的定義方式m_Data
我是一個學習c++的新手，總有一些問題難住我。比如說如下的題目吧，它是一個對於單詞統計的的簡單程序，可是我看不懂其中的while循環，希望指點 #include <iostream.h>#include <
2018-08-24 22:12:18
原创 Socket通訊使用IdTCPServer
Indy的全名是Internet Direct（也叫Winshoes），它是一套開放源代碼的Internet控件集，它支持大部分流行的Internet協議。 IdTCPServer 在開始工作後，首先會自動建立一個偵聽線程TidL
2018-08-24 22:12:14
187
原创 delphi多線程
Delphi中有一個線程類TThread是用來實現多線程編程的，這個絕大多數Delphi書藉都有說到，但基本上都是對TThread類的幾個成員作一簡單介紹，再說明一下Execute的實現和Synchronize的用法就完了。然而這並
2018-08-24 22:12:14
5
原创 formatdatetime的詳細用法
function FormatDateTime(const Format: string; DateTime: TDateTime): string; overload;當然和Format一樣還有一種，但這裏只介紹常用的第一種,Forma
2018-08-24 22:12:14
3
原创 明細化ADO的錯誤處理
function TForm1.handleErr(cn: TADOConnection): string;var s:string; i:integer;begin s:=''; for i:=0 to cn.Errors.Co
2018-08-24 22:12:13
原创 dbgrid單元格選擇數據錄入
dbg_.SelectedIndex := dbg_.SelectedIndex + 1; if dbg_.Columns[dbg_.SelectedIndex].FieldName = '備註' t
2018-08-24 22:12:13
原创 根據窗體名稱動態創建窗體
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls
2018-08-24 22:12:10