1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
procedure ConversionGUIDversVarchar;
var Tab : array [ 1..16] of string;
i : integer; dep: string;
// la lecture du champ Guid ne fonctionne pas
// avec les TTable mais fonctionne avec les TQuery
begin
if ((tvardata(query1.Fields[0].asvariant).vtype and vararray)=vararray) then
begin
dep:=query1.Fields[0].AsString;
Edit1.text:=dep;
memo2.clear;
for i := 1 to 16 do Tab[i] := inttohex( ord(dep[i]),2);
memo2.seltext:=
'{'
+Tab[4]+Tab[3]+Tab[2]+Tab[1]
+'-'
+Tab[6]+Tab[5]
+'-'
+Tab[8]+Tab[7]
+'-'
+Tab[9]+Tab[10]
+'-'
+Tab[11]+Tab[12]+Tab[13]+Tab[14]+Tab[15]+Tab[16]
+'}';
end;
end; |