globe.pas.~5~

一款房产中介软件

unit Globe;

interface

var
  OPName: string;
  procedure ShowForm(FrmID: Cardinal);

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