获取打印页号列表
摘要：procedure SplitCommaCross(aList: TStrings); procedure SPlitCross(aList: TStrings); var LList: TStrings; a,b: Integer; i: Integer; begin if Pos('-', aList.Text)
阅读全文
posted @
2011-06-28 11:18
万一
阅读(1695)
推荐(0) 编辑
判断集合从属关系的练习: 是否同时按下了 Ctrl 和 Shift 键
摘要：//不少鼠标与键盘事件用到了集合参数: Shift: TShiftState;TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble, ssTouch, ssPen);{判断是否按下了 Ctrl 键: 方法一}procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin Text := ''; if ssCtrl in Shift then Text :=
阅读全文
posted @
2011-06-18 11:37
万一
阅读(3556)
推荐(1) 编辑
简单获取钢琴 88 个键的音高频率值
摘要：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
阅读全文
posted @
2011-06-14 15:15
万一
阅读(5060)
推荐(0) 编辑
解压 svgz 到 svg
摘要：手头的程序中需要解压 svgz 到 svg.之前我在手动解压时, 一般就用 WinRar, 所以曾经以为 svgz 是 zip 格式的(因为和 zip 的压缩率基本一致), 现在知道了它是 gzip 压缩格式.在解决这个问题之前, 曾经傻呵呵地找来 VclZip、ZipTV、7Zip 等相关组件... 等问题解决时, 实在没想到会是这样容易:可用 IdZLib 单元中的 TCompressionStream、TDecompressionStream 类,该单元还有更易用的 CompressStream()、CompressString()、DecompressStream() 等函数.压缩时可
阅读全文
posted @
2011-06-12 22:57
万一
阅读(11220)
推荐(1) 编辑
管理
