TreeView mit Anzahl der Datensätze im Text

[omata]

Hier noch ein anderer Vorschlag...

Delphi-Quellcode:

function DeleteCount(Text:string):string;
var Posi:integer;
begin
  Result:=Text;
  repeat
    Posi:=pos(' (', Text);
    if Posi > 0 then
      delete(Text, 1, Posi);
  until Posi = 0;
  delete(Result, length(Result) - length(Text), length(Result));
end;