diff options
Diffstat (limited to 'UCoreClasses.pas')
| -rw-r--r-- | UCoreClasses.pas | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/UCoreClasses.pas b/UCoreClasses.pas index 7a4a43a..a2b3989 100644 --- a/UCoreClasses.pas +++ b/UCoreClasses.pas @@ -100,7 +100,6 @@ begin Group.GroupName := String(StrToUTF8(grp^.gr_name)); Group.GID := grp^.gr_gid; Group.Users := TStringList.Create; - {$R-} if grp^.gr_mem^ <> nil then begin i := 0; repeat @@ -108,7 +107,6 @@ begin Inc(i); until PCharArray(grp^.gr_mem^)[i] = nil; end; - {$R+} GroupList.Add(Group); grp := getgrent; end; |
