Hi, ich habe folgendes Problem:
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