Текущий архив: 2006.02.26;
Скачать: 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 вся ветка

Текущий архив: 2006.02.26;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.035 c