建立一個 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;
沒有留言:
張貼留言