Firebird og brugere

Hej.

Jeg sidder selv og roder med det samme og har brugt Delphis egne demo-eksempler til inspiration.

procedure TformBrugere.UpdateListView;
var
  i: integer;
begin
  with dmData.IBSecurityService do
  begin
    try
      Active := true;
      DisplayUsers;
      lvBrugere.Items.BeginUpdate;
      lvBrugere.Items.Clear;
      for i := 0 to UserInfoCount -1 do
      begin
        with UserInfo[i] do
        begin
          with lvBrugere.Items.Add do
          begin
            Caption := UserName;
            SubItems.Add(FirstName + ' ' + MiddleName + ' ' + LastName);
            SubItems.Add(IntToStr(UserID));
            SubItems.Add(IntToStr(GroupId));
          end;
        end;
      end;
    finally
    lvBrugere.Items.EndUpdate;
    Active := false;
    end;
  end;
end;

P.S.
Lækkert at kunne hjælpe andre for første gang ;o)

Her er et svar, hvis du vil belønne med points.

Jeg bukker pænt og siger tak.