Stichwort:
ActiveX, Tguid, Cocreateguid, GuidtoString
// --- Testprogramm von Conan 2005/04/14 --- //
Einheit Einheit1;
Schnittstelle
Verwendung
Fenster, Nachrichten, Systeme, Varianten, Klassen, Grafiken, Steuerelemente, Formulare,
Dialoge,
ActiveX, STDCTRLS;
Typ
Tform1 = Klasse (tform)
Button1: Tbutton;
PROCEDURE Taste1Click (Absender: Tobject);
Privat
{Private Deklarationen}
öffentlich
{Öffentliche Erklärungen}
Ende;
var
Form1: tform1;
Durchführung
{$ R *.dfm}
procedure tform1.button1click (Absender: tobject);
var
I: Ganzzahl;
Sguid: String;
TmpGuid: tguid;
beginnen
für i: = 0 bis 10 tun
beginnen
Wenn cocreateguid (tmpguid) = s_ok dann
Sguid: = GuidtoString (TMPGuid)
anders
ShowMessage ('Guid -Fehler erstellen!');
ShowMessage (Sguid);
Ende;
Ende;
Ende.