Форум: "Основная";
Текущий архив: 2004.03.05;
Скачать: [xml.tar.bz2];
ВнизПодскажите плз, как сгенерировать 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c