摘要：1 //从注册表中读出tnsnames.ora路径并调用解析函数 2 procedure TfmLogin.GetServer; 3 var 4 reg : Tregistry; 5 regValue : TStrings; 6 values : string; 7 begin 8 reg := TRegistry.Create; 9 regValue := TStrings.Create;10 try11 reg.RootKey := HKEY_LOCAL_MACHINE;12 reg.OpenKeyReadOnly('SOFTWARE\ORACLE... 阅读全文

摘要：1.TADOConnection，配置ConnectionString，连接到你的Oracle数据库上，测试通过后；2.TADOCommand，把这个组件换成TADOQuery，将该组件的Connection指向TADOConnection，在SQL中输入你的查询语句；3.TdataSource的DataSet指向TADOQuery；4.TDBGrid的DataSource指向TDataSource；5.将TADOConnection的Connected和TADOQuery的Active都设为True；---------------------------------------------- 阅读全文

摘要：1、基础知识简介：ModalResult是指一个模式窗体（form.showmodal）的返回值，一般用于相应窗体上按钮的ModalResult属性； 显示完窗体（关闭）后，会返回此属性预设的值做为返回值。2、该属性可以使用的参数（默认值是mrNone）：该属性可以设置为mrOk 、mrCancel...等等mrNone 0 None. Used as a default value before the user exits.mrOk 1 The user exited with OK button.mrCancel 2 The user ex... 阅读全文

摘要：1 type 2 Pint = ^Integer; //Pint 为类型 = 号 3 var 4 i : Integer; 5 pi : PInteger; 6 Pintd : ^Integer; //Pintd为变量 : 号 7 begin 8 i := 100; 9 pi := @i;10 pi^ := 102;11 ShowMessage(IntToStr(pi^));12 Pintd := @i;13 Pintd^ := 104;14 ShowMessage(IntToStr(pi^));15 end;内存中的数据除了 0 便是 1, 你把它当作图片、字符、数字等等, 那是你的事, . 阅读全文