예어:
ActiveX, Tguid, CocreateGuid, Guidtostring
// --- Conan 2005/04/14의 테스트 프로그램 --- //
단위 유닛 1;
인터페이스
용도
창, 메시지, 시스템, 변형, 클래스, 그래픽, 컨트롤, 양식,
대화,
Activex, stdctrls;
유형
tform1 = 클래스 (tform)
버튼 1 : tbutton;
절차 버튼 1Click (sender : tobject);
사적인
{개인 선언}
공공의
{공개 선언}
끝;
var
form1 : tform1;
구현
{$ r *.dfm}
절차 tform1.Button1click (sender : tobject);
var
I : 정수;
sguid : 문자열;
tmpguid : tguid;
시작하다
i : = 0 ~ 10 do
시작하다
cocreateguid (tmpguid) = s_ok 인 경우
sguid : = Guidtostring (tmpguid)
또 다른
showmessage ( 'Guid Error!');
showmessage (sguid);
끝;
끝;
끝.