From 90db8b6652f73ddc335922d3a7c593878d83c45e Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 4 Jan 2025 20:41:26 +0100 Subject: Basic ListView CSS styling --- UCoreClasses.pas | 2 -- 1 file changed, 2 deletions(-) (limited to 'UCoreClasses.pas') 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; -- cgit v1.2.3