使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数: uses IOUtils; procedure TForm1.btn1Click(Sender: TObject); const SourceDir = 'C:\Temp1'; { 源文件夹必须存在 ...
分类：
其他好文 时间：
2020-04-24 21:42:16
阅读次数：
75
Androidapi.JNI.Support引用这个单元 procedure _InstallApk(Apk: string); var LFile: JFile; LIntent: JIntent; begin LFile := TJFile.JavaClass.init(StringToJStr ...
分类：
移动开发 时间：
2020-04-24 16:01:34
阅读次数：
145
type PTCsRc = ^TCsRc; TCsRc = record ID:Word; Count:Integer; end; TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure FormCreate(Sender: T ...
分类：
其他好文 时间：
2020-04-21 18:04:02
阅读次数：
54
create [or replace] procedure 存储过程名（param1 in type，param2 out type）as 变量1 类型（值范围）; 变量2 类型（值范围）;begin select count(*) into 变量1 from 表A where列名=param1； ...
分类：
数据库 时间：
2020-04-21 15:35:09
阅读次数：
85
插入数据 DROP PROCEDURE IF EXISTS test3;DELIMITER //create procedure test3()begin DECLARE i int default 12345678; DECLARE count int default 0;while count< ...
分类：
其他好文 时间：
2020-04-18 17:14:56
阅读次数：
53
一、什么是存储过程 Oracle存储过程可以说是一个记录集吧，它是由一些PL/SQL语句组成的代码块，这些PL/SQL语句代码像一个方法一样实现一些功能（对单表或多表的增删改查），然后再给这个代码块取一个名字，在用到这个功能的时候调用他就行了。 存储过程的好处： 由于数据库执行动作时，是先编译后执行 ...
分类：
数据库 时间：
2020-04-18 11:45:49
阅读次数：
66
unihtmlmemo使用 procedure TMainForm.UniButton1Click(Sender: TObject); begin UniMemo1.Text := UniHTMLMemo1.Text; end; procedure TMainForm.UniFileUploadBu ...
分类：
Web程序 时间：
2020-04-18 09:44:18
阅读次数：
101
先勾画一下思路:1、建立一个类, 里面有年龄字段 FAge;2、通过 Age 属性读写 FAge;3、如果输入的年龄刚好是 100 岁, 将会激发一个事件, 这个事件我们给它命名为: OnHundred ...
set serveroutput on declare l_cur SYS_REFCURSOR ; PROCEDURE CursorOutput( p_refcursor IN OUT SYS_REFCURSOR ) AS l_desc DBMS_SQL.DESC_TAB ; l_cols BINA ...
分类：
其他好文 时间：
2020-04-15 18:02:15
阅读次数：
49
// 获取所有存储过程 -- owner, string sql = @"select object_name from dba_objects where object_type='PROCEDURE' and owner='DBO'"; string sql2 = @"select text f ...
分类：
数据库 时间：
2020-04-14 20:57:44
阅读次数：
95
