Delphide GUID üretimi

Delphide GUID üretimi

36 karaketer unique GUID


uses SysUtils;
....
..

Function GenerateGUID(): String;
var
  GUID: TGUID;
begin
  try
    // GUID.NewGuid();
    CreateGUID(GUID);
  except
    on e: exception do // hata oluşabilir
      Debug('GuiID err:' + e.Message + ' U:' + GUID.ToString);
  end;

  result := GUIDToString(GUID);
  result := StringReplace(result, '{', '', [rfReplaceAll]);
  result := StringReplace(result, '}', '', [rfReplaceAll]);
end;