Wie ich die Guid -Zeichenfolge von der Witestring in die Unicode -Zeichenfolge konvertiere
-
25-10-2019 - |
Frage
Ich habe dieses Problem, mache:
function GenGuid: String;
var
guid: TGuid;
begin
CreateGuid(Guid);
Result := GuidToString(Guid);
end;
Es gibt einen Richt im String -Format zurück. Aber ich wie kann ich eine Witesterin in Unicodestring umwandeln? Ich muss den GUID im Unicode -String -Format haben. Vielen Dank.
AKTUALISIEREN
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;
Tun tenden Sie nicht immer 148-124 und nicht ASCII von einzelnen Zeichen. Wenn ich nicht ord () tue, zeigen Sie Zeichen richtig an.
Lösung
Ich bin mir nicht sicher, ob Sie das wirklich wollen.
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;
Lizenziert unter: CC-BY-SA mit Zuschreibung
Nicht verbunden mit StackOverflow