Hi Uwe Raabe
Zitat:
Der Rückgabewert wird aber nicht irgendwo freigegeben, oder?
Nein.Vorgängig hatte ich mit einer lokalen Liste gearbeitet und sie auch lokal wieder freigegeben - und prompt keinen Rückgabewert erhalten. Daraufhin habe ich die Liste privat deklariert - so kann ich sie auch wieder korrekt freigeben.
Gruss
Delbor
PS: Der Aufruf:
Delphi-Quellcode:
procedure TServerInfoFrame.CatalogInformation;
var i, j: Integer; Catalog, SQLString:
string;
LIndent :
String; CatNames: TStringlist;
begin
Self.LBxCatalogNames.Items.Insert(0,'
procedure TServerInfoFrame.CatalogInformation;');
Self.LBxCatalogNames.Items.Insert(1,'
**********************************************');
Catnames := TStringlist.Create;
try
// FDMySQLDml.FDConnectionMySql.GetCatalogNames('', CatNames);
Self.LBxCatalogNames.Items.Add('
Datenbank: ' + FDMySQLDml.FDConnectionMySql.Params.Database);
Self.LBxCatalogNames.Items.AddStrings(FDMySQLDml.MySQLCorrespondent.Cataloginformation);
//<< AV