Inkompatible Typen 'TItem' und '...' ?

[Nersgatt]

Vermutlich erwartet die Funktion TBinarySearchTree.Search als Argument ein TItem, statt eines TZeichnenzahl.

[mkinzler]

TZeichenzahl von TItem ableiten

[Kudle]

Zitat von mkinzler:

TZeichenzahl von TItem ableiten

Aber TZeichenzahl ist von der Klasse TItem

[Klaus01]

Hallo,

Deine Klasse:

Delphi-Quellcode:

type
  TZeichenzaehler = class
    private
      Zeichenliste: TListe;
      Zeichenzahlbaum: TBinarySearchTree;
      procedure sortierteListe(pSuchbaum: TBinarySearchTree);
    public
      constructor create; virtual;
      procedure zaehleZeichen(pText: string);
      function gibSortierteZeichenliste: TListe;
  end;

die Implemtierung der Methode:

Delphi-Quellcode:

procedure TZeichenanzahl.sortierteListe(pSuchbaum: TBinarySearchTree);
begin
{
  if not pSuchbaum.isEmpty
    then begin
                sortierteListe(pSuchbaum.getLefttree);
            Zeichenliste.Append(pSuchbaum.getItem);
            sortierteListe(pSuchbaum.getRighttree)
              end; }
end;

Zeichenanzahl != Zeichenzaehler.

Grüße
Klaus