upublicfunction.pas

来自「很好的汽车管理系统 很实用的 谢谢合作」· PAS 代码 · 共 16 行

unit UPUBLICFUNCTION;

interface
uses
  Windows, SysUtils, Classes, Messages, Forms, DB, Dialogs, Controls, DBTables,
  Grids, ShellApi;
procedure MyError(MyMessage: string);

implementation
uses UMain, UDM;
procedure MyError(MyMessage: string);
begin
  MessageDlg(MyMessage, mtError, [mbOk], 0);
end;
end.