GUIDToString: welche Feldgrösse in der DB?

Thema durchsuchen

Ansicht

Themen-Optionen

GUIDToString: welche Feldgrösse in der DB?

Ein Thema von Delbor · begonnen am 3. Mär 2016 · letzter Beitrag vom 3. Mär 2016

Vorheriger Beitrag

Nächster Beitrag

RSF

Registriert seit: 13. Mär 2008
155 Beiträge

Delphi 10.2 Tokyo Professional

#13

AW: GUIDToString: welche Feldgrösse in der DB?

3. Mär 2016, 22:32

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

zusammenfalten · markieren

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;