delphi相关
文章平均质量分 80
PenGHNet
这个作者很懒,什么都没留下…
展开
-
复数与矢量的计算
这是我写一个与无线计算相关的小工具时而编写的代码,目的是为这完成矢量或复数的计算。同时,能完成矢量表达式:《模/相角》与《实数+i实数》这两种形式的自动转换。 代码使用delphi 7.0 完成。对于接口部分,是为了导出到其它环境中使用。方式可能不是最好,但目的我找不到更好的方式,权宜用着。unit my_complex;{$WARN SYMBOL_PLATFORM OFF}interfaceuses Windows, ActiveX, Classes, ComObj, my_typ_TLB, StdVc原创 2010-12-29 14:06:00 · 2688 阅读 · 0 评论 -
从文件夹中选中文件(网抄)
<br />uses Shellapi; //以便使用ShellExecute<br /> <br />function OpenAndSetFileSelected(const aFullExename: String): Boolean;<br />begin<br /> Result:= FileExists(aFullExename);<br /> if Result then<br /> ShellExecute(0, 'open', 'explorer.exe ', PChar('/s转载 2011-03-25 15:54:00 · 480 阅读 · 0 评论 -
Delphi Soap Header 的问题(来源于网络)
Delphi的SOAP Header问题1.Delphi给了一个SOAP Header的示例以下内容为程序代码: 4 2005-01-06T15:01:26.531Z 实现方法是:1.先定义一个TSOAPHeader的继承类,要在SOAP包中出现的字段以property方式出现转载 2011-06-15 12:57:00 · 2653 阅读 · 0 评论 -
我的LOG类
<br />经常在写代码时要记录一些信息,或者说LOG。为方便起见,做出以下的类供调用:<br /> <br />type TMy_Log=class(TObject) private FLog:TStrings; FLogFile:string; public constructor Create; destructor Destroy; override; procedure Save;virtual; procedure原创 2011-04-27 10:54:00 · 712 阅读 · 0 评论 -
一直没有用好的TStrings
一直以来,给TStrings对象赋值时,通常使用以下的方式: aStrings:TStrings;aStrings:=TStringList.Create();aStrings.Text:='...'; 当我要求将TEXT转为多行时,通常以这种形式:原创 2011-02-11 15:23:00 · 754 阅读 · 0 评论