摘要：摘自我自己过去写的一段心得。1.编辑资源文件 *.RCWave： 资源文件是声音文件；RCDATA： 二进制数据AVI： AVI动画；ICON： 图标文件；BITMAP： 位图文件；CURSOR： 光标文件；比如:MyWav WAVE "FileName.Wav"2.使用Brcc32转化为*.RES文件3.在工程中引用RES文件比如:{$R MyRes.RES}4.运行时读入 通过TResourceStream ,比如TResourceStream.Create(HInstance, ResName, RT_RCDATA); API:LoadBitmap,LoadIcon等 阅读全文

摘要：网上的都少了这两句bmp:=TBitmap.create; //先建立后才能用 jpg:= TJpegImage.create; ///////////////////////////////////////////////unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,jpeg;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender. 阅读全文

摘要：//TStringList 常用方法与属性:varList: TStringList;i: Integer;beginList := TStringList.Create;List.Add('Strings1'); {添加}List.Add('Strings2');List.Exchange(0,1); {置换}List.Insert(0,'Strings3'); {插入}i := List.IndexOf('Strings1'); {第一次出现的位置}List.Sort; {排序}List.Sorted := True; {指定 阅读全文

摘要：unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2... 阅读全文

摘要：procedure TForm1.BitBtn1Click(Sender: TObject); var i,d,j:integer; editm:tedit; begin d:=0; j:=strtoint(num.text); for i:=1 to j do begin editm :=tedit.Create(self); with editm do begin editm.Parent:=Scroll... 阅读全文

摘要：uses Tlhelp32; function KillTask(ExeFileName: string): integer;const PROCESS_TERMINATE = $0001;var ContinueLoop: BOOLean; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32;begin Result := 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize :=... 阅读全文

摘要：procedure TForm1.Button1Click(Sender: TObject);var b: array of integer; num: Integer; //随机数的个数 i, temp: integer;begin num := 10; SetLength(b,num); for i := 1 to num DO b[i] := i; ListBox1.Clear; for i := 1 to num do begin temp := Random(num - i + 1) + 1; ListBox1.Items.Add(I... 阅读全文

摘要：No.1 利用MaxInt常量12345begin Caption := Copy(Edit1.Text, 3, Length(Edit1.Text) - 3 + 1); //不建议//---- Caption := Copy(Edit1.Text, 3, MaxInt); //建议//嘻嘻，少计算一次end;No.2 临时SQL查询1234567891011begin QueryTemp.Close; QueryTemp.SQL.Text := 'Select SUM(金额) AS 合计 FROM 销售表'; QueryTemp.Open; //不建议//数据没有关闭造成资源 阅读全文

摘要：使用Excel最好用Comobj方式，它能够达到完全控制excel的目的。不过这种方式在Delphi中没有代码提示,而使用Server控件的方式有！下边是使用comobj的，使用Server 的就不放进来了！另外用完Variant要释放掉这样比较好（ExcelApp:=Unassigned;）use Comobj(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible 阅读全文

摘要：本例子几个变量的说明TFileRec = record //记录定义Day : Integer;...//其他定义end;f : File of TFileRec //标准的输入/输出文件FilRec : TFileRec //记录数据FileName : 记录文件的名称关于记录文件的相关操作(1)记录文件的打开 (2)记录文件的读入和显示(3)记录的增加(4)记录的删除(5)记录的修改(6)记录文件的删除 记录文件的打开需要使用的方法： AssingFile(f, FileName); Reset(f); //打开一个已经存在的记录文件 Rewrite(f); //新创建一个记录文件 Fi. 阅读全文