Скачать: CL | DM;

Как генерировать разный GUID?   Найти похожие ветки 

← →
Volf_555   (2005-12-07 20:09) [0]

Следующий код постоянно возвращает один и тот же GUID:
procedure TForm1.Button1Click(Sender: TObject);
var
s:TGUID;
begin
edit1.Text:=GUIDToString(s);
end;

Как сделать так, чтобы постоянно возвращался разный GUID?

---

← →
palva ©   (2005-12-07 20:28) [1]


uses ActiveX;
...
procedure TForm1.Button1Click(Sender: TObject);
var
s:TGUID;
begin
CoCreateGuid(s);
edit1.Text:=GUIDToString(s);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.025 c