globe.pas.~3~

来自「一款房产中介软件」· ~3~ 代码 · 共 19 行

unit Globe;

interface

var
  OPName: string;

  procedure CreateFrm(FrmID: Cardinal);
implementation
  procedure CreateFrm(FrmID: Cardinal);
  begin
     case cardinal of
       0:;
       1:;
     else
     end;
  end;
end.