auf die gefahr hin das ich aussagen meiner vorredner wiederhole:
Delphi-Quellcode:
for i:=1 to length(ausdruck) do
if ausdruck[i] in ['1'..'9'] then zahlen.Add(ausdruck[i]);
so, wenn du nun mehrere "'prd'-'>'-konstruktionen" hast, könntest du sowas in die schleife machen machen:
wenn aktuelles zeichen gleich dem endzeichen ist, dan lösche alle zeichen bis zum endzeichen inclusive des endzeichens
was dabei noch an "haken" bzw notwändigen änderungen im aufbau auftreten wirst du dann noch merken