globe.pas.~3~

一款房产中介软件

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.