摘要： @:取址运算符; var int:integer; p:^integer; new(P); int:=24; p:=@int; dispose(P); ^:指针的引用解析操作符; var pint:^integer; new(pint); showmessage(inttohex(integer(@ 阅读全文

摘要： 你把一个TButton和一个TSpeedButton的OnClick都设置成一样的试看看。如procedure TForm1.SpeedButton1Click(Sender: TObject);begin if TWinControl(Sender).Name = 'Button1 ' then ShowMessage( 'Button1 ') else if TWinControl(Sender).Name = 'SpeedButton1 ' then ShowMessage( 'SpeedButton1 ');end;=== 阅读全文

摘要： 数据类型参数描述char(n)n=1 to 2000字节定长字符串，n字节长，如果不指定长度，缺省为1个字节长（一个汉字为2字节）varchar2(n)n=1 to 4000字节可变长的字符串，具体定义时指明最大长度n，这种数据类型可以放数字、字母以及ASCII码字符集(或者EBCDIC等数据库系统接受的字符集标准)中的所有符号。如果数据长度没有达到最大值n，Oracle 8i会根据数据大小自动调节字段长度，如果你的数据前后有空格，Oracle 8i会自动将其删去。VARCHAR2是最常用的数据类型。可做索引的最大长度3209。number(m,n)m=1 to 38n=-84 to 127可 阅读全文

摘要： procedure TFrmSysIni.FormCreate(Sender: TObject);var I:Integer; Col,Row:Integer;//第几列begin TabelList:=TStringList.Create; DM1.ADOC1.GetTableNames(TabelList); Col:=0; Row:=0; For I:=0 to TabelList.Count-1 do begin if Col>13 then begin Col:=0; Row:=Row +1 ; end; CheckList:=TRzCheckBox.Create(Self); 阅读全文

摘要： 1.在Eclipse 设置tomcat 默认服务器从Eclipse菜单 Windows->Preferseres->Server->Runtime EnviroMent->在右边 单击 add按钮，选择tomcat 6.x，点击Finish，然后浏览找到tomcat 根目录，点击Finish。2.在Eclipse 设置IE浏览器作为调试显示浏览器从Eclipse菜单 Windows->Preferseres->Gernerl->Web Bowser->在右表单选项，选择：Use External Web Bowser； 在下面复选框，选择 Int 阅读全文

摘要： 1. 在数据集已经打开的情况下才使用DBLookupComboBox1.ListFieldIndex:=0的。2.listfieldindex是你的DBLookupComboBox1在列出的字段中选择一个作为索引。比如你列了2个，0就是将第一个作为索引。 真正实现默认值是： DBLookupComboBox1.KeyValue:=你自己的值;3.dblookupcombobox1.KeyValue:=ADOquery1.fieldbyname( 'username ').AsVariant; 阅读全文

摘要： TListView 可以帮你实现。1. 在界面添加TListView 控件 ListView1,设置 ListView1.viewStype:=vsReport。或等于vsList。 ListView1.checkboxes:=True;2. 可以把数据加载到 ListView1中。 ListView1.Items.Clear; ListView1.Items.BeginUpdate; for i:=1 to 10 do begin vLvItem := lv1.Items.Add; vLvItem.Caption:='aa'+ IntToStr(i) ; vLvItem.Su 阅读全文

摘要： 1.把DBGRID的第一列更变内容显示 if Column.FieldName= 'OPERATORID' then if DataCol = 0 then begin DBGrid2.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, IntToStr(i)); inc(i); end;//I:显示了其顺序号。如：procedure TfrmDetail01.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: T 阅读全文

摘要： //添加数据和对象到下拉框procedure TForm1.Button1Click(Sender: TObject);var s:string;begin ComboBox1.Items.Clear; s:= '1001'; //ComboBox1.Items.Add('1'); ComboBox1.Items.AddObject('1',TObject(s) ); s:='2001'; //ComboBox1.Items.Add('2'); ComboBox1.Items.AddObject('2 阅读全文

摘要： 手工添加“显示桌面”快捷方式保存为"显示桌面.scf"就可以了。程序代码[shell]Command=2IconFile=explorer.exe,3[Taskbar]Command=ToggleDesktop然后放到C:\Documents and Settings\Administrator\Application Data\Microsoft\Internet Explorer\Quick Launch下面就行了。（然后请根据自己实际情况修改盘符和用户名。） 阅读全文