【Delphi】強化 ShowMessage 顯示字串外的資料型別

參考資料 ----

http://delphi.about.com/od/delphitips2008/qt/showmessage-ovr.htm

建立一個 unit, 覆載原 ShowMessage

 
unit common;
 
interface
 
uses dialogs, sysutils;
 
procedure ShowMessage(const value : string) ; overload;
procedure ShowMessage(const value : integer) ; overload;
procedure ShowMessage(const value : extended) ; overload;
procedure ShowMessage(const value : boolean) ; overload;
 
implementation
 
// 顯示字串
procedure ShowMessage(const value : string) ;
begin
    Dialogs.ShowMessage(value) ;
end;
 
// 顯示整數
procedure ShowMessage(const value : integer) ;
begin
    ShowMessage(IntToStr(value)) ;
end;
 
// 顯示浮點數
procedure ShowMessage(const value : extended) ;
begin
    ShowMessage(FloatToStr(value)) ;
end;
 
// 顯示布林值
procedure ShowMessage(const value : boolean) ;
begin
    ShowMessage(BoolToStr(value, true)) ;
end;
 
end.
 

然後在自己的專案內 uses 上面的 unit, 注意檔案內若有 uses 到 dialogs, 則 common 一定要在 dialogs 之後!! 如： 

 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, common, StdCtrls;