Text parsen und auswerten

[himitsu]

Ach ja, bei

Code:

Erwachsene := Trim(Copy(S, [color=#ff0000]19[/color], i - [color=#ff0000]19[/color])); 
Kinder := Trim(Copy(S, i + [color=#ff0000]7[/color], MaxInt));

mußt'e mal sehn, ob ich die Werte richtig geschätzt hab und wenn bei den Suchwörtern die Groß-/Kleinschreibung immer stimmt, dann kannst'e natürlich auch die ganzen AnsiLowerCase weglassen, mußt dann natürlich in den Abfragen ebenfalls die Groß-/Kleinschreibung beachten (ansonsten halt alles klein)