约瑟夫问题问题来历 据说著名犹太历史学家 Josephus有过以下的故事：在罗马人占领乔塔帕特后，39 个犹太人与Josephus及他的朋友躲到一个洞中，39个犹太人决定宁愿死也不要被敌人抓到，于是决定了一个自杀方式，41个人排成一个圆圈，由第1个人开始报数，每报数到第3人该人就必须自杀，然后再由下 ...
分类：
编程语言 时间：
2020-04-29 00:38:09
阅读次数：
76
TReplaceDialog组件是TFindDialog类的特殊版本，提示用户查找和替换字符串，与“查找”对话框相同，替换对话框是一个无模式的windows对话框。 代码示例（窗体上添加按钮、RichEdit、ReplaceDialog）： procedure TForm1.Button1Click ...
分类：
其他好文 时间：
2020-04-27 10:08:26
阅读次数：
63
TFindDialog组件用于显示一个查找对话框，允许用户在文件中查找文本。 1、设置“查找”对话框显示时的位置，通常打开查找对话框时，出现的位置可能会影响视觉效果，下面示例可以解决。 procedure TForm1.Button2Click(Sender: TObject); var Point ...
分类：
其他好文 时间：
2020-04-27 09:18:25
阅读次数：
63
一个简单的存储过程： create or replace procedure insert_user_procedure (id in number,name in varchar2,salary in number,result out varchar2) is begin insert into ...
分类：
数据库 时间：
2020-04-25 23:37:41
阅读次数：
136
uses Character; {Character.ToUpper} procedure TForm1.Button1Click(Sender: TObject); var c: Char; str: string; begin c := ToUpper('a'); str := ToUpper( ...
使用的是 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
