GUIDToString: welche Feldgrösse in der DB?

[RSF]

Ich benutze GUID in ID-Felder als CHAR(32)

Delphi-Quellcode:

function DB_GUID: String;
var
  NewGUID: TGUID;
  S: string;
begin
 CreateGUID(NewGUID);
 S:=GUIDToString(NewGUID);
 // Sonderzeichen entfernen ({,},-)
 while Pos('{', S) > 0 do
    Delete(S,Pos('{', S),1);
 while Pos('}', S) > 0 do
    Delete(S,Pos('}', S),1);
 while Pos('-', S) > 0 do
    Delete(S,Pos('-', S),1);
 Result:=S; // CAHR(32)
end;