Delphi之Exception获得错误信息 相关资料: http://www.cnblogs.com/hackpig/archive/2010/02/15/1668547.html 实例代码: 1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls; 8 9 type 10 TForm

起源: 用习惯了c#之Exception的StackTrace,在程序出异常crash时候能够以其定位出问题的模块及行号,用回Delphi 2009,发现没有这东西. 显然,在编译环境日新月异的今天,是不科学的.分析Delphi的Exception,发现些线索:StackTrace. 应该有戏! 继续下去,验证输出这个StackTrace,它是空的,里面没有预想要的内容.再深究去,发现并没想象那么容易,它扯到不少蛋. 1.Exception类 Delphi 2009中,StackTrace是如此

直接上代码吧,这个示例在Excel中输出一个M2: unit FfrmMain; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, RzButton; type TfrmMain = class(TForm) RzBitBtn1: TRzBitBtn

配置:MACOSX10.9.3 +XCODE5.1 + VBOX + WINXP + DELPHI XE 5UP2 配置步骤从略. 1.选择firemonkey desktop application 选择HD高清模式. 2.添加OSX平台, 写点代码 放一个BUTTON 添加事件. 还是最俗的HELLO XXXX 加上最傻的SHOWMESSAGE 这里是HELLO XE5 3.运行,在MAC端的下面的文件夹里:project1就是了. 小结:编译出来的MAC应用大小还是可以忍受的.DEBUG模

function GetDosOutput(CommandLine: string; Work: string = 'C:\'): string; var SA: TSecurityAttributes; SI: TStartupInfo; PI: TProcessInformation; StdOutPipeRead, StdOutPipeWrite: THandle; WasOK: Boolean; Buffer: .. ] of AnsiChar; BytesRead: Cardinal;

Delphi 7下IGDIPlus库的使用 IGDI+是一个免费开源封装微软GDI+功能的Delphi库,该库使得可以用Delphi语言代码快速简短的实现复杂GDI+应用程序. 官方网站:http://www.mitov.com/html/igdi_.html SourceForge:https://sourceforge.net/projects/igdiplus/ 安装方法: .首先下载目前最新版的IGDI+,解压到任意目录下,这里我解压到D盘: .打开Delphi →Tools→Envir

查找书籍 给定n本书的名称和定价,本题要求编写程序,查找并输出其中定价最高和最低的书的名称和定价. 输入格式: 输入第一行给出正整数n(<10),随后给出n本书的信息.每本书在一行中给出书名,即长度不超过30的字符串,随后一行中给出正实数价格.题目保证没有同样价格的书. 输出格式: 在一行中按照“价格, 书名”的格式先后输出价格最高和最低的书.价格保留2位小数. 输入样例: 3 Programming in C 21.5 Programming in VB 18.5 Programming in

 http://blog.csdn.net/nerdy/article/details/8969189 [delphi]运行cmd命令,并取得输出字符 标签: delphiCMD命令 2013-05-24 11:36 1529人阅读 评论(0) 收藏 举报  分类: delphi实例(2)  procedure CheckResult(b: Boolean); begin if not b then raise Exception.Create(SysErrorMessage(GetLastEr

Delphi的参数可以分为:默认参数(传值).var(传址).out(输出).const(常数)四类 可以对比C/C++的相关知识,类比学习. 1.默认参数是传值,不会被改变,例子 function MyFun(x : Integer) : Integer; begin Inc(x); Result := x; end; 2.var参数是传址,会被改变,例子 function MyFunVar(var x : Integer) : Integer; begin Inc(x); Result :=

在项目文件 *.DPR (Project->View Source)  里加上{$APPTYPE   CONSOLE} 然后,在需要输出处加上 Writeln(‘your debug message’); 另一方法是从网上找到的,未测试 在Delphi中输出后台调试信息 有些时候,我们需要输出调试信息,但又不在界面上,也不希望弹出窗口中断执行,这时,只要用OutputDebugString就可以了,然后在View|Debug Window|Event Log查看结果即可. 例子: var S :

Delphi RAD Berlin Event Log.OutputDebugString 输出调试信息,仅在win VCL下可以用.OutputDebugString(PChar('helloword'));调试窗口输出delphi FireMonkey 下用 Log.d('debugging'); 可用于Android,IOS程序调试!这样在断点调试的时候非常方便! log.TimeStamp('run');log.TimeStamp('run');log.TimeStamp('run');

//注意:Delphi2010以下版本默认的字符编码是ANSI,VS2010的默认编码是UTF-8,delphi版得到的字符串须经过Utf8ToAnsi()转码才能跟C#版得到的字符串显示结果一致. //Delphi版: function HexToStr(str: string): string; function HexToInt(hex: string): integer; var i: integer; function Ncf(num, f: integer): integer; va

Delphi中使用提示是如此简单,只需将欲使用Hint的控件作如下设置: ShowHint := True; Hint := ‘提示信息’; 不必写一行代码,相当方便. 但有时我们又想自己定制提示的效果,使其看起来更美观更具个人特色,没关系,Delphi完全有办法让你写出自己喜欢的Hint效果. Delphi的Hint功能实现归类在Application类中,所以我们可以在Application类中看到数个关于Hint的属性,这些属性可以设置Hint窗口的颜色,停留时间,出现时间等,设置了这些属

参数可以分为: 默认参数(传值).var(传址).out(输出).const(常数)四类 {默认参数是传值, 不会被改变} function MyF1(x: Integer): Integer; begin Inc(x); Result := x; end; {var参数是传址, 会被改变} function MyF2(var x: Integer): Integer; begin Inc(x); Result := x; end; {out参数是为支持Com的, 和 var 的结果是一样的,

1.在Mac上配置开发环境(具体步骤请百度)   XCODE5.1+IOS7.1SDK+COMMAND LINE TOOLS   安装PlatformAssistant   买一个真机调试账号(实际测试没有用真机,直接运行输出即可) 2.在Windows PC上配置开发环境(具体步骤请百度)   给Mac创建一个Connection Profile   给连接到Mac的iOS Device在开发系统中添加一个SDK 3.写个程序,选择IOS 设备调试模式,按F9运行.出现"没有连接真机"

//注意:Delphi2010以下版本默认的字符编码是ANSI,VS2010的默认编码是UTF-8,delphi版字符串事先须经过AnsiToUtf8()转码才能跟C#版得到的十六进制字符串显示结果一致. Delphi版: function StrToHex(AStr: string): string; var i : Integer; ch:char; begin Result:=''; to length(AStr) do begin ch:=AStr[i]; Result:=Result+

//转自http://www.oschina.net/code/snippet_136241_3980 1 procedure CheckResult(b: Boolean); begin if not b then raise Exception.Create(SysErrorMessage(GetLastError)); end; function RunDOS(const CommandLine: string): string; var HRead, HWrite: THandle; S

想实现,输出当前运行的堆栈,有会的吗?给点思路 方法很多,参考: https://bitbucket.org/shadow_cs/delphi-leakcheck/ 的 https://bitbucket.org/shadow_cs/delphi-leakcheck/raw/25652a1e8909dd5e560dab50ec84f475da6ba803/Source/LeakCheck.Trace.DbgHelp.pas https://www.codeproject.com/Articles

问题:客户现场程序运行提示时间格式不对导致的错误,原因是与开发环境及公司内部测试环境的日期格式不一致: 解决:统一强制转换: //引用单元:SysUtils //目的:实现跨环境兼容不同日期格式,如果不做强制格式处理,不同环境存在发生问题的可能性: function GetSysTimeByFormate: string; var dtFormate: TFormatSettings; begin try dtFormate.ShortDateFormat := 'yyyy/MM/dd'; dt

转载自:http://www.cnblogs.com/mumble/archive/2011/05/25/2056462.html Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用: 其实在看Delphi的Format函数的时候,可以与C 里面的printf 函数的格式化相关的知识进行类比. 首先看它的声明: function Format(const Format: string; const Args: array o