akaGM
Цитата:
Незнаю может в табак что подсыпали, или смешинка попала.
Ещё конвертер гуидов есть чтоб в hex нормально читать.
function TGuidConverter.From(b: array of Byte): TGUID;
var
B2: Byte;
begin
if High(B) <> 15 then
raise ArgumentException.Create(SByteArrayForGUID);
B2 := B[3];
B[3] := B[0];
B[0] := B2;
B2 := B[2];
B[2] := B[1];
B[1] := B2;
B2 := B[4];
B[4] := B[5];
B[5] := B2;
B2 := B[6];
B[6] := B[7];
B[7] := B2;
Result := Create(B);
FIID := Result;
end;
Цитата:
"не верю!",
Незнаю может в табак что подсыпали, или смешинка попала.
Ещё конвертер гуидов есть чтоб в hex нормально читать.
function TGuidConverter.From(b: array of Byte): TGUID;
var
B2: Byte;
begin
if High(B) <> 15 then
raise ArgumentException.Create(SByteArrayForGUID);
B2 := B[3];
B[3] := B[0];
B[0] := B2;
B2 := B[2];
B[2] := B[1];
B[1] := B2;
B2 := B[4];
B[4] := B[5];
B[5] := B2;
B2 := B[6];
B[6] := B[7];
B[7] := B2;
Result := Create(B);
FIID := Result;
end;