SUNSTONE的Delphi笔记

很古老话题了，不过今天碰到了，就捡起来研究和总结一下。delphi可以把各种资源文件整合到exe文件中，这样调入速度快。一 bmp图像，有两种方法procedure TfrMain.btnCanvasPic(Sender: TObject);var bBitmap : TBitmap;begin bBitmap := TBitmap.Create; try  bBitmap.Handl

uses WinSpool, ... ;procedure ChangeDefaultPrinter(const Name: string) ;var    W2KSDP: function(pszPrinter: PChar): Boolean; stdcall;    H: THandle;    Size, Dummy: Cardinal; PI:

ShellExecute(Handle, print, PChar(c:/document.doc), nil, nil, SW_HIDE) ;Drop a TComboBox on a form. Name it "cboPrinter". Set Style to csDropDownLidtPut the next two lines in the fo

<br />经常用到把字节数显示成kb或gb，函数如下<br /> <br />function FormatByteSize(const bytes: Longint): string;<br /> const<br />   B = 1; //byte<br />   KB = 1024 * B; //kilobyte<br />   MB = 1024 * KB; //megabyte<br />   GB = 1024 * MB; //gigabyte<br /> begin<br />   if

 http://www.firebirdsql.org/index.php?op=guide&id=techspec Firebird Technical SpecificationsUpdated 2007-07-16 and subject to reviewDatabase Limits ItemFirebird 2.xFirebi

unit s1;interfaceuses  Windows, Messages, SysUtils, Graphics, Controls, Forms, StdCtrls,  Classes;type  TForm1 = class(TForm)    Button1: TButton;    Memo1: TMemo;    procedure Button1Click(Sender: TO

今天用delphi2010和Delphi7测试了一下ini读写，已经没有64k的限制了，估计限制这事已经是老黄历了！

  问题的引入：准备做一个多国语言软件，发现信息变量（都是字符串）数量庞大，如果简单的通过 “变量=readstring”从ini文件中获取的话，几百个变量就是几百行，这个工作量非常大，而且也不易维护。如果使用RTTI反射机制，未来变量变化时，赋值程序不用修改，只需修改变量结构，这是一劳永逸的做法。 注意：本例程使用delphi2010，delphi老版本不支持record类型

procedure TForm2.FormCreate(Sender: TObject);begin  StatusBar1.Panels[0].Style := psOwnerDraw;  StatusBar1.Panels[1].Style := psOwnerDraw;end; procedure TForm2.StatusBar1DrawPanel(StatusBar: TStat

procedure TForm2.btn1Click(Sender: TObject);var  arr1, arr2: TBytes;  len: Integer;begin  SetLength(arr1, 3);  SetLength(arr2, 3);  arr1[0] := 65;  arr1[1] := 66;  arr1[2] := 67;  arr2[0] := 68;  ar

 一、保存为HTML文件uses ActiveX;...procedure WB_SaveAs_HTML(WB : TWebBrowser; const FileName : string) ;var  PersistStream: IPersistStreamInit;  Stream: IStream;  FileStream: TFileStream;begin  if not As

procedure TForm2.StatusBar1Click(Sender: TObject);var  mpt: TPoint;  x: integer;  j: integer;  panel: integer;begin  if (StatusBar1.SimplePanel) OR (StatusBar1.Panels.Count = 0) then  begin    Memo1.L

uses Registry;function RegisterFileTypeCommand(fileExtension, menuItemText, target: string) : boolean;var  reg: TRegistry;  fileType: string;begin  result := false;  reg := TRegistry.Create;  with

combobox和listbox的文字可以右对齐显示么？答案是可以的，但是必须使用ComboBox1DrawItem，自行画内容。unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type 

 动态创建消息窗口，并在窗口中显示一个进度条，在进度条范围内选择按钮unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls, ComCtrls;type  TForm1 = c

1.VarArrayCreate()和VarArrayOf()这两个常用就不说了2.VarArrayRedim()函数能修改variant数组的最高限。3.VarArrayDimCount()函数返回Variant数组的维数，4.VarArrayLowBound()和VarArr