+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: GUID در دلفی (/showthread.php?tid=2281)
GUID در دلفی - Oep - 05-17-2012
دوستان توی VS راحت میشه GUID رو ساخت و در دلفی همن توسط کد زیر میتونیم اینکاررو انجام بدیم.
کد:
var
Uid: TGUID;
result := CreateGuid(Uid);کد:
uses
ComObj, ActiveX;
function CreateGuid: string;
var
ID: TGUID;
begin
Result := '';
if CoCreateGuid(ID) = S_OK then
Result := GUIDToString(ID);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := CreateGuid;
// or: Edit1.Text := CreateClassID
end;