标签:字符 replace 位长 var eal bsp temp UI gui
function GetGUID: string;
var
vGUID: TGUID;
vTemp:string;
begin
if S_OK = CreateGuid(vGUID) then
begin
vTemp := GUIDToString(vGUID);
//去掉字符串中的{,-字符
vTemp:=StringReplace(vTemp,‘-‘,‘‘,[rfReplaceAll]);
vTemp:=StringReplace(vTemp,‘{‘,‘‘,[rfReplaceAll]);
vTemp:=StringReplace(vTemp,‘}‘,‘‘,[rfReplaceAll]);
end;
Result:=vTemp;
end;
标签:字符 replace 位长 var eal bsp temp UI gui
原文地址:http://www.cnblogs.com/railgunman/p/7811842.html