как я конвертирую строку guid из строки в Unicode - PullRequest
Новая
       4

как я конвертирую строку guid из строки в Unicode

0 голосов
/ 18 октября 2011

У меня есть эта проблема, делая: 

function GenGuid: String;
var
  guid: TGuid;
begin
  CreateGuid(Guid);
  Result := GuidToString(Guid);
end;

Возвращает guid в формате строки.Но как конвертировать широкую строку в уникальную?Мне нужно иметь руководство в формате строки Unicode.Большое спасибо.

ОБНОВЛЕНИЕ 

  function myguid: string;
  var
    i: Integer;
    s: string;
    Guid: TGuid;
    t: byte;
  begin
    CreateGuid(Guid);
    s := GuidToString(Guid);
    for i := 1 to Length(s) do
    begin
      t := Ord(MidStr(s, i, 1));
      writeln (t);
    end;
    Result := ....  // for now not need, just a test
  end;

При этом t всегда возвращает 148-124, а не ascii одного символа.Если я не делаю ord (), то правильно отобразите char.

1 Ответ

4 голосов
/ 18 октября 2011

Я не уверен, действительно ли вы этого хотите. 

uses
  ComObj, ActiveX;

function CreateGuid: string;
var
  GUID: TGUID;
begin
  Result := '';

  if CoCreateGuid(GUID) = S_OK then
  begin
    Result := IntToHex(GUID.D1, 8) +
              IntToHex(GUID.D2, 4) +
              IntToHex(GUID.D3, 4) +
              IntToHex(GUID.D4[0], 2) +
              IntToHex(GUID.D4[1], 2) +
              IntToHex(GUID.D4[2], 2) +
              IntToHex(GUID.D4[3], 2) +
              IntToHex(GUID.D4[4], 2) +
              IntToHex(GUID.D4[5], 2) +
              IntToHex(GUID.D4[6], 2) +
              IntToHex(GUID.D4[7], 2);
  end;
end;
...