----赖格英-----

记忆不好了,记录工作中的点点滴滴....

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2018年10月3日

摘要: 摘自:http://wenjieshiyu.blog.163.com/blog/static/10739413201072033115869/ 个人收藏:Delphi 控制Excel(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;E 阅读全文
posted @ 2018-10-03 18:20 向北方 阅读(7282) 评论(0) 推荐(1) 编辑

2018年9月27日

摘要: PROGRAM parallel_01 USE omp_lib IMPLICIT NONE INTEGER :: i,j INTEGER(4) :: time_begin, time_end, time_rate REAL, DIMENSION(1:50,1:50) :: f, g REAL :: k WRITE(*,*) '开始进行... 阅读全文
posted @ 2018-09-27 15:33 向北方 阅读(2001) 评论(0) 推荐(1) 编辑

2018年9月23日

摘要: 本程序在Delphi 2010上测试过,没有问题。 阅读全文
posted @ 2018-09-23 11:53 向北方 阅读(930) 评论(0) 推荐(0) 编辑

摘要: 本文来自 爱好者8888 的CSDN 博客 ,全文地址请点击:https://blog.csdn.net/kpc2000/article/details/17066823?utm_source=copy 第一种方法delphi 快速导出excel uses ComObj,clipbrd; funct 阅读全文
posted @ 2018-09-23 00:35 向北方 阅读(8776) 评论(0) 推荐(0) 编辑

2018年9月15日

摘要: 在delphi和intel fortran下实证过。 阅读全文
posted @ 2018-09-15 21:07 向北方 阅读(462) 评论(0) 推荐(0) 编辑

摘要: http://fcode.cn/guide-58-1.html 阅读全文
posted @ 2018-09-15 13:08 向北方 阅读(1412) 评论(0) 推荐(0) 编辑

2018年9月11日

摘要: 此函数库提供了 Visual Fortran 上获取硬盘ID,CPU编号,windows安装时间及文件头部校验的四个函数。可用于简单的程序加密。(但切勿用于商业性很强的地方) 近期,不少朋友向笔者询问 Fortran 如何获得网卡地址,硬盘ID,CPU编号等。对此,笔者给出一个自己书写的简单的函数库 阅读全文
posted @ 2018-09-11 21:29 向北方 阅读(1256) 评论(0) 推荐(0) 编辑

摘要: Unit CPUid; Interface Type TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); Function CpuType : TCpuType; Function CpuTypeString : String; Implementation Uses SysUtils; ... 阅读全文
posted @ 2018-09-11 21:22 向北方 阅读(1447) 评论(0) 推荐(0) 编辑

摘要: 以前写了个获取硬盘序列号的fortran程序,但未经实证 program FortranDemo Use Kernel32 Implicit None Interface SUBROUTINE GetDiskSerialNumber1(drive, pout, ... 阅读全文
posted @ 2018-09-11 21:18 向北方 阅读(767) 评论(0) 推荐(0) 编辑

2018年8月4日

摘要: Format('x=%d', [12]); //'x=12' //最普通Format('x=%3d', [12]); //'x= 12' //指定宽度Format('x=%f', [12.0]); //'x=12.00' //浮点数Format('x=%.3f', [12.0]); //'x=12. 阅读全文
posted @ 2018-08-04 21:10 向北方 阅读(5817) 评论(0) 推荐(0) 编辑

2018年3月13日

摘要: 一代枭雄吴三桂,自康熙十二年(1673年)起兵反清,自命“周王”,后于衡州称帝,国号大周,改元昭武,至洪化三年(吴三桂死后,其孙吴世璠即位改年号为洪化)(康熙二十年)吴周政权灭亡,历时八年之久。之后清廷命令云贵总督范承勋等,对吴氏家属成员与部下即所谓吴三桂“逆属人口”、“部下旧人”,进行十余年的大清 阅读全文
posted @ 2018-03-13 22:57 向北方 阅读(2811) 评论(0) 推荐(0) 编辑

2017年4月26日

摘要: Delphi XE中泛型数组的使用范例,下面的范例简单的使用了泛型字符串数组,如用 TArray 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点). 阅读全文
posted @ 2017-04-26 23:09 向北方 阅读(2319) 评论(0) 推荐(0) 编辑

2017年4月23日

摘要: 第一步:关闭debug infomation. 打开工程后,依次点击project--option--delphi compiler--linking 将右边Debug information改为False 第二步: 关闭RTTi. 点击Project--view source.在第二行添加编译开关 阅读全文
posted @ 2017-04-23 20:03 向北方 阅读(3613) 评论(0) 推荐(0) 编辑

2017年3月4日

摘要: 一般用在比较费时的循环中,往往导致应用程序没有响应,此时在比较费时的程序体中加入Application.ProcessMessages即可解决,该语句的作用是检查并先处理消息队列中的其他消息。 例如,在如下的程序中,加入该语句,则在程序运行过程中可以随便拖动窗口。 该程序在Delphi 10.1下测 阅读全文
posted @ 2017-03-04 22:15 向北方 阅读(465) 评论(0) 推荐(0) 编辑

2017年1月4日

摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文
posted @ 2017-01-04 20:00 向北方 阅读(396) 评论(0) 推荐(0) 编辑

2017年1月2日

摘要: 我们在做数据系统的时候,经常会用到模糊搜索,但是,数据库提供的模糊搜索并不具备按照相关度进行排序的功能。 现在提供一个比较两个字符串相似度的方法。 通过计算出两个字符串的相似度,就可以通过Linq在内存中对数据进行排序和筛选,选出和目标字符串最相似的一个结果。 本次所用到的相似度计算公式是 相似度=Kq*q/(Kq*q+Kr*r+Ks*s) (Kq > 0 , Kr>=0,Ka>=0) ... 阅读全文
posted @ 2017-01-02 17:55 向北方 阅读(2448) 评论(0) 推荐(0) 编辑

2016年12月31日

摘要: 中文字号VS英文字号(磅)VS像素值八号=5磅(5pt) ==(5/72)*96=6.67 =6px 七号=5.5磅 ==(5.5/72)*96=7.3 =7px 小六=6.5磅 ==(6.5/72)*96=8.67 =8px 六号=7.5磅 ==(7.5/72)*96=10px 小五=9磅 ==( 阅读全文
posted @ 2016-12-31 13:33 向北方 阅读(647) 评论(0) 推荐(0) 编辑

2016年12月23日

摘要: //重点为是使用 SelectedRtf 属性 private void button1_Click( object sender, EventArgs e ) { //mergeRTF为并内容后的 RichTextBox 控件 mergeRTF.SelectionLength = 0; ... 阅读全文
posted @ 2016-12-23 00:35 向北方 阅读(1503) 评论(0) 推荐(0) 编辑

2016年12月12日

摘要: using System; using System.Collections.Generic; using System.Drawing; using System.Windows.Forms; using System.IO; namespace test { /// /// Description of MainForm. /// public partial class Ma... 阅读全文
posted @ 2016-12-12 23:04 向北方 阅读(1129) 评论(0) 推荐(0) 编辑

2016年12月8日

摘要: 转自:http://blog.csdn.net/zwzgood/article/details/4250458 阅读全文
posted @ 2016-12-08 09:37 向北方 阅读(2533) 评论(0) 推荐(0) 编辑