paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-29 03:21:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed commented code in TryStringToGUID

Browse Source 
git-svn-id: trunk@14060 -
This commit is contained in:
ivost 2009-11-04 23:04:30 +00:00
parent 537825dee9
commit 10e78efaac
1 changed files with 0 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
rtl/objpas/sysutils/sysuintf.inc
View File

@ -116,47 +116,6 @@ begin
nextChar('}'); nextChar('}');
Result := e; Result := e;
end; end;
(*
if ((Length(S)<>38) or (s[1]<>'{')) then
Exit(False);
dest:=PByte(@Guid);
src:=PChar(s);
inc(src);
for i:=0 to 3 do
if not HexByte(src+(3-i)*2, dest[i]) then Exit(False);
inc(src, 8);
inc(dest, 4);
if src[0]<>'-' then
Exit(False);
inc(src);
for i:=0 to 1 do
begin
dest^:=HexByte(src+2);
inc(dest);
dest^:=HexByte(src);
inc(dest);
inc(src, 4);
if src[0]<>'-' then
Exit(False);
inc(src);
end;
dest^:=HexByte(src);
inc(dest);
inc(src, 2);
dest^:=HexByte(src);
inc(dest);
inc(src, 2);
if src[0]<>'-' then
Exit(False);
inc(src);
for i:=0 to 5 do
begin
dest^:=HexByte(src);
inc(dest);
inc(src, 2);
end;
Result := True;
end;*)
function IsEqualGUID(const guid1, guid2: TGUID): Boolean; function IsEqualGUID(const guid1, guid2: TGUID): Boolean;