String nach Komma löschen

[inherited]

warum nicht einfach

Delphi-Quellcode:

s:='DP rul0rt,nicht'
Delete(s, pos(',', s), Length(s));