?? dcdebug.pas
字號(hào):
unit dcDebug;
interface
uses
Dialogs;
procedure SendDebugEx(const Msg: String; MType:TMsgDlgType);
procedure SendDebug(const Msg: String);
implementation
uses
{$IFDEF DebugView}MainForm,{$ENDIF}
SysUtils, Forms, StatusForm;
{ SendDebug }
procedure SendDebugEx(const Msg: String; MType:TMsgDlgType);
begin
if MType = mtError then
begin
SendDebug('***************' + Msg);
raise Exception.Create('Error debug string: ' + Msg);
end
else
SendDebug(Msg);
end;
procedure SendDebug(const Msg: String);
begin
if StatusFrm <> nil then
with StatusFrm.lvDebug.Items.Add do
begin
Caption := Msg;
SubItems.Text := TimeToStr(Time);
end;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -