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