摘要：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. 阅读全文

摘要：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 阅读全文

摘要：Delphi中编写的Dll： 其中涉及到三个输出函数：一个输出的变量为整数，一个为浮点数，另一个为字符串。 C#中调用该Dll： 注意：在C#的using部分必须添加“using System.Runtime.InteropServices”。 程序运行结果为： 本程序在delphi2010和Sha 阅读全文

摘要：以上定义的publicValue类，其中的变量可以在同一个命名空间中使用，包括在子窗体或非子窗口中调用。 阅读全文