探讨delphi生成短数字唯一性id问题,无分

function getuid:string;
var
  guid: tguid;
  uid  : string;
  i:integer;
  total:integer;
begin
  if cocreateguid（guid) = s_ok then
      uid := guidtostring（guid);
  uid:=stringreplace（uid, '-','',[rfreplaceall]);
  uid:=stringreplace（uid, '{','',[rfreplaceall]);
  uid:=stringreplace（uid, '}','',[rfreplaceall]);
  total := 0;
  for i:=1 to length（uid) do
  begin
    total := total + ord（uid[i])*i;
  end;
  result := inttostr（total);
end;