Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

Подскажите плз, как сгенерировать GUID (globally unique identifi)   Найти похожие ветки 

 
Layner ©   (2004-02-25 11:20) [0]

(в стринговую переменную)


 
pasha_golub ©   (2004-02-25 11:22) [1]

Ctrl+Shift+G


 
Sha ©   (2004-02-25 11:43) [2]

CoCreateGuid


 
Sha ©   (2004-02-25 11:44) [3]

+GuidToString


 
Внук ©   (2004-02-25 12:40) [4]

+ CoInitialize :)


 
Anatoly Podgoretsky ©   (2004-02-25 13:03) [5]

Внук © (25.02.04 12:40) [4]
При необходимости, в главном кодовом потоке не надо.


 
Romkin ©   (2004-02-25 13:19) [6]

Anatoly Podgoretsky © (25.02.04 13:03) [5] Не надо, если есть Application.Initialize :)) Проходили.


 
Владислав ©   (2004-02-25 14:05) [7]

function GetUniqueString(const Default: string): string;
var
LGuid: TGUID;
LGuidStr: WideString;
Created: Boolean;
begin
try
Created := False;
SetLength(LGuidStr, StrGuidLen - 1);
if (CoCreateGuid(LGuid) and $80000000) = 0 then
begin
if
StringFromGUID2(LGuid, PWideChar(Pointer(LGuidStr)), StrGuidLen) <> 0
then
Created := True
end;
if Created then
Result := LGuidStr
else
Result := Default
except
Result := Default
end
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.009 c
3-12233
SaS
2004-02-07 14:19
2004.03.05
Получение значение ключевого поля, сразу после его создания


4-12574
Vulko
2003-12-29 00:38
2004.03.05
Как мне узнать, что в буффер попал текст?


6-12478
Michael_X
2003-12-29 13:48
2004.03.05
Сырые сокеты в WinXP


7-12540
Japan
2003-12-12 06:34
2004.03.05
Ролик мышки


14-12493
тихий вовочка
2004-02-14 10:57
2004.03.05
QNX