Перегрузка ShowMessage для вывода Boolean, Integer, Float... |
![]() |
![]() |
Статьи |
Процедура ShowMessage в Delphi, определенная в модуле Dialogs.pas отображает значение в диалоговом окне и ждет пользователя, чтобы он щелкнул кнопку OK. Полезно для отладки выводить промежуточные результаты переменных, свойств, результатов функций при помощи процедуры ShowMessage. Неудобная сторона процедуры ShowMessage - это то, что она принимает только строки в качестве параметра, в то время, как переменные могут быть целыми числами, с плавающей точкой, булевыми значениями и т.д. Каждый раз, когда нужно отобразить, например, целое число с использованием ShowMessage, возникает необходимость преобразовать целое число в строку (используя IntToStr). Так, вызов ShowMessage для целого числа выглядел бы так:
Более гибкий ShowMessageЧтобы ускорить отладку при кодировании можно добавить несколько overloaded процедур ShowMessage и поместить их все в модуле Common.pas. Вот пример переделанного модуля Common.pas:
Как использовать перегруженную процедуру ShowMessageЕсли Вы хотите использовать этот модуль из другого модуля, Вам конечно, нужно включить его в разделе uses, плюс: Удостоверьтесь, что модуль Common перечислен ПОСЛЕ модуля Dialogs. Вот пример:
|
Комментарии
procedure showmessage(con st k:integer; const st:string); overload;
procedure showmessage(con st k:integer; const st:string); overload;
begin
Dialogs.showmes sage(inttostr(k )+' '+st);
end;
showmessage(3, 'равно три');
procedure ShowMessage(con st value : string) ;
begin
ShowMessage(val ue) ;
end;
Dialogs. впереди я поставить не догадался
RSS лента комментариев этой записи