Hallo,
Zitat von
Smiley:
Was mache ich hier falsch ?
das hier:
Delphi-Quellcode:
Procedure DBListTables(const Liste: ISharedStringlist); stdcall;
Var
i : Integer;
xListe:TStringList;
Begin
xListe := TStringList(Liste); <-------------
xListe.Clear;
Du bekommst keine TStringList, sondern ein ISharedStringList. Damit musst Du arbeiten. Die beiden (TStringList und ISharedStringList) sind komplett unterschiedlich, und haben im Aufbau keinerlei Gemeinsamkeit.
Nutze einfach die von ISharedStringList zur Verfügung gestellten Methoden.
Gruß
xaromz