摘要：
//替换字符串列表中字符串procedure StringsReplace(var S : TStrings; OldPattern, NewPattern: string; Flags: TReplaceFlags);var i : integer; tmpstr : string;begin for i := 0 to S.Count -1 do begin tmpstr := S[i]; s[i] := StringReplace(tmpstr, OldPattern, NewPattern, Flags); end;end; //分割字符串，从网上搜索的也很好使function Spl 阅读全文
摘要：
在delphi中嵌入腳本語言--(譯)RemObjects Pascal Script使用說明(1)(譯)2007年11月27日 星期二 00:26 翻譯這篇文章源於我的一個通用工資計算平台的想法，在工資的計算中，不可避免的需要使用到自定義公式，然而對於自定義公式的實現，我自己想了一些，也在網上搜索了很多，解決辦法大致有以下幾種： 1. 自己寫代碼去解析公式。這種方法的缺點是，解析的代碼很難實現，如果公式的功能比較完整，如增加條件判斷或自定義函數。不亞於實現了一個簡單的語言編譯囂... 阅读全文
摘要：
Delphi 的RTTI机制浅探<二> ［作者：Savetime 转贴自：Delphibbs.com 点击数：2852 更新时间：2004-12-28 文章录入：aleyn］ 本文上篇基本上是 RTTI 入门介绍，续篇介绍了所有 TypInfo.pas 中的函数，附加了 Classes.pas、Graphics.pas、Controls.pas 中的几个 RTTI 相关函数。对于关键函数的代码提供汇编注释。希望本文覆盖了 Delphi 中 80% 的 RTTI 函数。时间仓促，错误难免，敬请批评指正。目 录====================================== 阅读全文
摘要：
uses TypInfoprocedure SetImeA(AOwner:TForm);var i:Integer;begin for i := 0 to AOwner.ComponentCount - 1 do begin if GetPropInfo(AOwner.Components[i],'ImeName')<>nil then begin SetPropValue(AOwner.Components[i],'ImeName', readinifile(getinifile,'ime','imename',&# 阅读全文
摘要：
Delphi的TCustomForm留有一个为IDE的可视化设计的用的接口Designer.Designer是IDesignerNotify, IDesignerHook 接口.我在这里实现了这些接口.程序不用做任何改动,只要调函数BeginDesign就可以开始像IDE一样设计.EndDesign函数是结束设计.{******************************************************************************TFrom DesignHook接口的实现.wr960204 武稀松2007.9.10******************** 阅读全文
摘要：
//edit by cxg. 2008-04-19 10:01:52//增加保存"显示标题"procedure TCustomDBGridEh.SaveColumnsLayoutProducer(ARegIni: TObject; Section: String; DeleteSection: Boolean);var I: Integer; S: String;begin if (ARegIni is TRegIniFile) then TRegIniFile(ARegIni).EraseSection(Section) else if DeleteSection the 阅读全文
摘要：
procedure TFrmColSelect.SaveGridLayOut;var Ini: TIniFile;begin if CheckBox1.Checked then Grid.SaveGridLayoutIni(ExtractFilePath(Application.ExeName) + '/Grid.ini', Owner.ClassName + '$' + Name, true) else begin Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + '/Grid. 阅读全文
摘要：
{*******************************************************}{ }{ 图形分析 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit uChart;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, TeeProcs, TeEngine, C 阅读全文
摘要：
在单元初始化的时候:initialization WinExec('regsvr32.exe /s MyPlayX.ocx',sw_hide); 阅读全文
摘要：
最近解决了一个问题-减少内存占用。不过是有条件的，只能在WinXp,Win2K中应用此方法，不显示主窗体一直运行的程序最佳。以前程序占用11M内存，我用动态创建窗口的方法只能减少不到100K，应用此方法后内存占用只有496K。把下面的过程放到一个Timer中，每隔一段时间执行一次，如5秒。{*********** Clear Memory* From Muse2008**********}procedure ClearMemory;begin if Win32Platform = VER_PLATFORM_WIN32_NT then begin SetProcessWorkingSetS... 阅读全文