LceMeaning

摘要： (一) 使用动态创建的方法首先创建 Excel 对象，使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口：ExcelApp.Visible := True;2) 更改 Excel 标题栏：ExcelApp.Caption := '应用程序调用 Microsoft Excel';3) 添加新工作簿：ExcelApp.WorkBooks.Add;4) 打开已存在的工作簿：ExcelApp.WorkBooks.Open( 'C:/ 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Vcl.ExtCtrls,Clipbrd;type TForm1 = class(TForm) Button1: TButton; img1: TImage; procedure Button1Click(Sender: TObject); private { Private declarations } public ... 阅读全文

摘要： varHang,Lie,Num,CharsLine:longint;beginNum:=SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);CharsLine:=SendMessage(Memo1.Handle,EM_LINEINDEX,Num,0);Hang:=Num+1;//当前行Label3.Caption :='行数= '+IntToStr(Hang) ;Lie:=(Memo1.SelStart-CharsLine)+1;//当前列Label4.Caption :='列数= '+IntTo 阅读全文

摘要： function NumToChar(const n: Real): string; //可以到万亿，并且可以随便扩大范围 const cNum: WideString = '零壹贰叁肆伍陆柒捌玖--万仟佰拾亿仟佰拾万仟佰拾元角分'; cCha:array[0..1, 0..12]of string = (( '零元','零拾','零佰','零仟','零万','零亿','亿万','零零零','零零','零万',' 阅读全文

摘要： 首先使用dateutils单元，即uses dateutils；// 有什么不明白的，去查看这个函数的声明，就明白了yearsbetween(开始时间,结束时间)-------------中间相差多少年 保留整数部分monthsbetween(开始时间,结束时间)-------------中间相差多少月 保留整数部分daysbetween(开始时间,结束时间)-------------中间相差多少天 保留整数部分hoursbetween(开始时间,结束时间)-------------中间相差多少小时 保留整数部分以此类推 分钟、秒yearspan(开始时间,结束时间)------------- 阅读全文