2008-11-06

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

參考資料 ----


建立一個 unit, 覆載原 ShowMessage
  1.  
  2. unit common;
  3.  
  4. interface
  5.  
  6. uses dialogs, sysutils;
  7.  
  8. procedure ShowMessage(const value : string) ; overload;
  9. procedure ShowMessage(const value : integer) ; overload;
  10. procedure ShowMessage(const value : extended) ; overload;
  11. procedure ShowMessage(const value : boolean) ; overload;
  12.  
  13. implementation
  14.  
  15. // 顯示字串
  16. procedure ShowMessage(const value : string) ;
  17. begin
  18. Dialogs.ShowMessage(value) ;
  19. end;
  20.  
  21. // 顯示整數
  22. procedure ShowMessage(const value : integer) ;
  23. begin
  24. ShowMessage(IntToStr(value)) ;
  25. end;
  26.  
  27. // 顯示浮點數
  28. procedure ShowMessage(const value : extended) ;
  29. begin
  30. ShowMessage(FloatToStr(value)) ;
  31. end;
  32.  
  33. // 顯示布林值
  34. procedure ShowMessage(const value : boolean) ;
  35. begin
  36. ShowMessage(BoolToStr(value, true)) ;
  37. end;
  38.  
  39. end.
  40.  


然後在自己的專案內 uses 上面的 unit, 注意檔案內若有 usesdialogs, 則 common 一定要在 dialogs 之後!! 如: 
  1.  
  2. uses
  3. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  4. Dialogs, common, StdCtrls;
  5.  


沒有留言:

張貼留言