【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;