Как в Run-time сгененрировать строку типа

 

'{821AB2C7-559D-48E0-A3EE-6DD50E83234C}'

 

Типа как в среде при нажатии Ctrl-Shift-G. Функция CoCreateGuid выводит значение типа TGUID, я нигде не нашёл функции конвертации TGUID -> String. Может кто знает такую функцию?

 

 

Автор:Vit

Взято с Vingrad ruhttps://forum.vingrad

 

 Есть такая функция. Как ни странно называется она GUIDToString, и живет в SysUtils.

 

 

 

Автор:Fantasist

Взято с Vingrad ruhttps://forum.vingrad

 

 


Можно GUIDToString написать и вручную, будет выглядеть примерно так:

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

G: TGUID;

S: string;

i: Integer;

begin

CoCreateGuid(G);

S := '{' + IntToHex(G.D1, 8) + '-' + IntToHex(G.D2, 4) + '-' + IntToHex(G.D3, 4) + '-';

for i := 0to7do

begin

S := S + IntToHex(G.D4[i], 2);

if i = 1then S := S + '-'

end;

S := S + '}';

ShowMessage(GUIDToString(G) + #13 + S)

end;

 

  Автор:Jin X

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить