摘要:
摘自:http://wenjieshiyu.blog.163.com/blog/static/10739413201072033115869/ 个人收藏:Delphi 控制Excel(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;E 阅读全文
摘要:
摘自:http://wenjieshiyu.blog.163.com/blog/static/10739413201072033115869/ 个人收藏:Delphi 控制Excel(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;E 阅读全文
摘要:
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(*,*) '开始进行... 阅读全文
摘要:
本程序在Delphi 2010上测试过,没有问题。 阅读全文
摘要:
本文来自 爱好者8888 的CSDN 博客 ,全文地址请点击:https://blog.csdn.net/kpc2000/article/details/17066823?utm_source=copy 第一种方法delphi 快速导出excel uses ComObj,clipbrd; funct 阅读全文
摘要:
在delphi和intel fortran下实证过。 阅读全文
摘要:
http://fcode.cn/guide-58-1.html 阅读全文
摘要:
此函数库提供了 Visual Fortran 上获取硬盘ID,CPU编号,windows安装时间及文件头部校验的四个函数。可用于简单的程序加密。(但切勿用于商业性很强的地方) 近期,不少朋友向笔者询问 Fortran 如何获得网卡地址,硬盘ID,CPU编号等。对此,笔者给出一个自己书写的简单的函数库 阅读全文
摘要:
Unit CPUid; Interface Type TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); Function CpuType : TCpuType; Function CpuTypeString : String; Implementation Uses SysUtils; ... 阅读全文
摘要:
以前写了个获取硬盘序列号的fortran程序,但未经实证 program FortranDemo Use Kernel32 Implicit None Interface SUBROUTINE GetDiskSerialNumber1(drive, pout, ... 阅读全文
摘要:
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. 阅读全文
摘要:
一代枭雄吴三桂,自康熙十二年(1673年)起兵反清,自命“周王”,后于衡州称帝,国号大周,改元昭武,至洪化三年(吴三桂死后,其孙吴世璠即位改年号为洪化)(康熙二十年)吴周政权灭亡,历时八年之久。之后清廷命令云贵总督范承勋等,对吴氏家属成员与部下即所谓吴三桂“逆属人口”、“部下旧人”,进行十余年的大清 阅读全文
摘要:
Delphi XE中泛型数组的使用范例,下面的范例简单的使用了泛型字符串数组,如用 TArray 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点). 阅读全文
摘要:
第一步:关闭debug infomation. 打开工程后,依次点击project--option--delphi compiler--linking 将右边Debug information改为False 第二步: 关闭RTTi. 点击Project--view source.在第二行添加编译开关 阅读全文
摘要:
一般用在比较费时的循环中,往往导致应用程序没有响应,此时在比较费时的程序体中加入Application.ProcessMessages即可解决,该语句的作用是检查并先处理消息队列中的其他消息。 例如,在如下的程序中,加入该语句,则在程序运行过程中可以随便拖动窗口。 该程序在Delphi 10.1下测 阅读全文
摘要:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton... 阅读全文
摘要:
我们在做数据系统的时候,经常会用到模糊搜索,但是,数据库提供的模糊搜索并不具备按照相关度进行排序的功能。 现在提供一个比较两个字符串相似度的方法。 通过计算出两个字符串的相似度,就可以通过Linq在内存中对数据进行排序和筛选,选出和目标字符串最相似的一个结果。 本次所用到的相似度计算公式是 相似度=Kq*q/(Kq*q+Kr*r+Ks*s) (Kq > 0 , Kr>=0,Ka>=0) ... 阅读全文
摘要:
中文字号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磅 ==( 阅读全文
摘要:
//重点为是使用 SelectedRtf 属性 private void button1_Click( object sender, EventArgs e ) { //mergeRTF为并内容后的 RichTextBox 控件 mergeRTF.SelectionLength = 0; ... 阅读全文
摘要:
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... 阅读全文
摘要:
转自:http://blog.csdn.net/zwzgood/article/details/4250458 阅读全文
|