mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-28 03:53:45 +02:00
19 lines
271 B
ObjectPascal
19 lines
271 B
ObjectPascal
program example74;
|
|
|
|
uses baseunix;
|
|
|
|
Var
|
|
P : PGrpArr;
|
|
C,R,I : Cint;
|
|
|
|
begin
|
|
C:=5;
|
|
GetMem(P,Sizeof(tgid)*C);
|
|
FillChar(P^,Sizeof(tgid)*C,0);
|
|
R:=fpGetGroups(C,P^);
|
|
If (R>0) then
|
|
begin
|
|
For I:=0 to R-1 do
|
|
Writeln('Group id :',P^[I]);
|
|
end;
|
|
end. |