摘要： TMainMenu //... 阅读全文

摘要： procedure TForm1.Button1Click(Sender: TObject);var i: Integer; f: Double;begin f := 440/2/2/2/2; for i := 0 to 87 do begin Memo1.Lines.Add(Format('%.3f', [f])); f := f * 1.0594630944; end;end;{*********27.50029.13530.86832.70334.64836.70838.89141.20343.65446.24948.99951.91355.00058.27061.735 阅读全文

摘要： 手头的程序中需要解压 svgz 到 svg.之前我在手动解压时, 一般就用 WinRar, 所以曾经以为 svgz 是 zip 格式的(因为和 zip 的压缩率基本一致), 现在知道了它是 gzip 压缩格式.在解决这个问题之前, 曾经傻呵呵地找来 VclZip、ZipTV、7Zip 等相关组件... 等问题解决时, 实在没想到会是这样容易:可用 IdZLib 单元中的 TCompressionStream、TDecompressionStream 类,该单元还有更易用的 CompressStream()、CompressString()、DecompressStream() 等函数.压缩时可 阅读全文

摘要： 用了一周的时间解决了一个难题; 同时第一次真正开始使用泛型数组, 感觉太好了.如用 TArray<Word> 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点).uses Generics.Collections, Generics.Defaults;{测试 TArray 的 Sort 方法}procedure TForm1.Button1Click(Sender: TObject);var arr: TArray<string>; //同 array of string s: string;begin SetLength(arr, 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2008/01/01/1022130.html#2103357TStream 有 Seek() 方法, 它的子类们(TFileStream、TMemoryStream、TBytesStream、TStringStream、TResourceStream、TStreamAdapter、THandleStream...)也都有 Seek() 方法, 且用法一样.另外它们也都有 Position 属性, 使用 Position 属性完全可以代替 Seek() 方法, 通过 Position 还可以方便地 "读 阅读全文

摘要： 先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}procedure MyMethod;var i: Integer;begin for i := 0 to 500000 do begin Form1.Canvas.Lock; Form1.Canvas.TextOut(10, 10, IntToStr(i)); Form1.Canvas.Unlock; end;end;{调用上面的自定义方法}procedure TForm1.Button1Click(Sender: TObject);begin MyMethod;end;修改为多线程(只 阅读全文

摘要： "冷公子" 同学需要在 TStringGrid 中通过颜色显示大量信息, 给出的方案是: 建立一个对应的颜色数组.参考代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls;type TForm1 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; procedure FormCreate(Sender: TOb 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2009/12/24/1631729.html#2097194GDI+ 接口: http://www.cnblogs.com/del/archive/2009/12/11/1621790.html示例代码:uses GdiPlus;procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);var Graphics: IGPGraphics; Pen: 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2009/12/22/1629717.html#20967341、使用 TransparentColor、TransparentColorValue 给窗体指定透明色;2、绘制非透明色的文本, 用 TLabel 呈现文本也可;3、处理 WM_NCHITTEST 消息使窗体能够被拖动;4、用 Esc 键退出.测试代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 阅读全文

摘要： 代替 TSplitter 的 TDirPanel 类:unit DirPanel;interfaceuses Classes, Controls, Forms, ExtCtrls;type TDirPanel = class(TCustomPanel) private FLine: TPanel; B: Boolean; F: Integer; protected procedure LineMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X: Integer; Y: Integer); procedur 阅读全文