Anzahl sowie namen der TABLES aus DB auslesen mit zeos

[lume96]

Zitat von pmc:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var list : TStringList;
    i : Integer;
begin
  list := TStringlist.Create;
  sp_Database.Connect;
  sp_database.GetTableNames('*.*',true,list);
  sp_Database.Disconnect;
  for i:=0 to List.Count-1 do sp_List.Items.Add(List.Text);
  list.Free
end;

Allerdings ist meine Listbox leer geblieben.

Liegt das Problem nicht hier
  for i:=0 to List.Count-1 do sp_List.Items.Add(List.Text); ich würde
  for i:=0 to List.Count-1 do sp_List.Items.Add(List[i]); vorschlagen.

MfG
Lutz