[IBDAC] GetTableNames access violation

[messie]

Moin,

wenn ich die Tabellen einer Datenbank abfragen möchte, bekomme ich eine access violation. Die Tabelle ist vorhanden und connected, Queries klappen auch. Übergeben bekommt die Methode TStrings. Wenn ich die vorher instanziiere, gibt es einen abstrakten Fehler, das ist also nicht richtig. In der Hilfe wird sie wie eine Wald- und Wiesenfunktion knapp beschrieben.

Was muss ich da noch beachten?

Danke, Messie

[DeddyH]

Du instanzierst aber nicht zufällig ein TStrings-Objekt, oder?

[messie]

Zitat von DeddyH:

Du instanzierst aber nicht zufällig ein TStrings-Objekt, oder?

Nö, das deklariere und übergebe ich.

Zitat:

procedure GetTableNames(List: _TStrings; AllTables : boolean = false); virtual;
List: A TStrings descendant that will be filled with table names

[DeddyH]

Aber wie?

Delphi-Quellcode:

var
  Tablenames: TStrings;
begin
  Tablenames := TStrings.Create; //abstrakter Fehler

Delphi-Quellcode:

var
  Tablenames: TStrings;
begin
  Tablenames := TStringlist.Create; //kein abstrakter Fehler

[messie]

Zitat von DeddyH:

Aber wie?

Delphi-Quellcode:

var
  Tablenames: TStrings;
begin
  Tablenames := TStrings.Create; //abstrakter Fehler

Delphi-Quellcode:

var
  Tablenames: TStrings;
begin
  Tablenames := TStringlist.Create; //kein abstrakter Fehler

Jepp, das war es. Wäre ich nach der Beschreibung nicht drauf gekommen, dass die Routine eine Instanz von TStrings braucht.

Danke!

[DeddyH]

Wenn man genau hinschaut, steht es ja auch da:

Zitat:

A TStrings descendant that will be filled with table names

TStrings ist ja nur eine abstrakte Basisklasse, die man nicht direkt instanzieren soll, sondern nur Nachkommen davon (wie z.B. TStringlist).

[messie]

Zitat von DeddyH:

Wenn man genau hinschaut, steht es ja auch da:

Zitat:

A TStrings descendant that will be filled with table names

TStrings ist ja nur eine abstrakte Basisklasse, die man nicht direkt instanzieren soll, sondern nur Nachkommen davon (wie z.B. TStringlist).

Schon, ich hatte auch eine TStringList übergeben, vorher aber nicht erzeugt. Gleicher Fehler -> danach in falsche Richtung gedacht.
Ist mit descendant immer automatisch eine Instanz gemeint? Das wäre mir neu.

Grüße, Messie

[DeddyH]

Nein, Descendant bedeutet Abkömmling, das ist das, was ich mit Nachkommen meinte. Und übergeben musst Du natürlich eine existierende Instanz, das kann die selbst angelegte TStringlist sein oder auch die Items einer Listbox oder so etwas.