最近写刻录程序时用到了int64计算比例的功能，integer的范围是4G，而普通DVD光盘容量就是4.3G，直接计算是通不过编译的因此用了一种取巧的方法，把两个数据右移16位，然后计算比例，当数据小于2的16次方（64k，接近VCD容量的万分之一）时，当作最小进度（如1%）处理代码如下：function GetProgress: Integer;var nReadSize, nCapibility: Integer;begin nReadSize := Integer(FWriteSize s
大小写转换://--------------------------------------------------------------------------------var str: string;begin str := 'Delphi'; str := str.ToLower; // delphi str := str.ToUpper; // DELPHIend;
代码文件:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; Butto
原本一直使用 TList， 将定义的一个个 Record 保存在TList 里面， 为了能把某些对象管理起来， 例如一个类的 n 多实例，可以进行索引、查找、释放等今天刚看到原来已经有了一个叫 TDictionary 对象，用起来挺方便。 挺像我们在DB中定义的 Dictionary 表，Key、Value。 而那个不管Key、Value 都挺发达，允许各种定义的类。 ok，下面官方Demo很通俗易懂，各方法都在： type TCity = class Country: String;
前言 Delphi作为一个快速高效的开发平台，使用的人越来越多，但熟悉在Delphi代码中嵌入ASM代码的程序员我想不多，因为这方面的资料太少了，另一方面，它还需要有基本的汇编语言知识，关於汇编语言的教程，那实在太多了，如果你对汇编语言不熟的话，建议你下载相交的教程先读读。因此，本文假定您已经熟悉了汇编语言。 （注，下文中的函数与过程统称为函数。）一．如何在Delphi程序中增加一段汇编代码？ 很简单，用asm...end把你的汇编代码封装起来，再把它放到你需要它的位置．这个需要它的位置可以是函数
//-------------------------------------------------------------------------------------------- function getDateFilename():string; var s:string; begin DateTimeToString(s,'yyyymmddhhnnsss',now()); result:=s; end;//截屏function captureScre
一、URLDownloadToFile()函数介绍使用微软提供的URLDownloadToFile function函数，函数原型：HRESULT URLDownloadToFile( LPUNKNOWN pCaller, LPCTSTR szURL, LPCTSTR szFileName, _Reserved_ DWORD d
const szChar = SizeOf(Char);/// /// saves a string to a file/// procedure StringToFile(const s: string; const FileName: string);var FileStream: TFileStream;begin FileStream := TFileStream.Create(FileName, fmCreate); try FileStream.WriteBuffer(Po