Hi, ich habe folgendes Problem:

zusammenfalten · markieren

Delphi-Quellcode:

procedure Tbenutzer.FormCreate(Sender: TObject);
var
I: Integer;
itm:Tlistitem;
begin
itm:=benutzer.Items.Add;
with IBSecurityService1 do
begin
active:=false;
Params.Add('user_name=sysdba');
Params.Add('password=masterkey');
LoginPrompt := False;
ServerName := '127.0.0.1';
Active := True;
try
DisplayUsers;
for I := 0 to ibsecurityservice1.UserInfoCount - 1 do
begin
with ibsecurityservice1.UserInfo[i] do
begin
itm.Caption:=UserName;
itm.SubItems.Add(firstname);
itm.SubItems.Add(username);
itm.SubItems.Add(Sqlrole);
itm.SubItems.Add(inttostr(userid));
itm.SubItems.Add(inttostr(groupid));
end;
end;
finally
Active := False;
end;
end;
end;

Mit diesem Code soll in einem Listview alle Benutzer angezeigt werden, die an der IB 7-Datenbank angelegt sind. Es kommt aber der totale Schrott raus. Es sind definitiv vier Benutzer vorhanden, es werden aber alle in einer zeile angezeigt, und nicht untereinander.

Vielen Dank für eure Hilfe.

DAS S

In der for i := ... Schleife, wo du deine Benutzer durchläufst, setzt du jedesmal die Caption von itm auf den neuen Wert, und fügst Spalten hinzu wie firstname usw. D.h. du überschreibst deine Caption bei jedem Durchlauf, statt ein neues TListItem hinzuzufügen.
itm:=benutzer.Items.Add; gehört also mit in die for i := ... Schleife, dann sollte es klappen.

Vielen Dank, jetzt geht es