Beim Programmieren kann man ja sooo viele Fehler machen.
Deshalb
defensiv programmieren und fleissig Asserts einsetzen:
Delphi-Quellcode:
procedure TDM_EV.Get____(liste:tstrings);
var
i,j : integer;
dummyl : twidestrings;
begin
Assert(Assigned(self));
Assert(Assigned(ADOConnection1));
Assert(Assigned(liste));
Assert(ADOConnection1.Connected);
dummyl:=twidestringlist.Create;
Liste.clear;
ADOConnection1.GetTableNames(liste);