Auf Deutsch ausführlich:
Delphi-Quellcode:
// solange das letzte eine Zeichen der String-Variablen "widerstand" sich in der Liste der Werte "0" oder "<komma>" befindet, führe aus
while rightstr(widerstand,1) in ['0', ','] do
// weise der String-Variablen "widerstand" den Beginn der String-Variablen "widerstand" zu, mit einer Länge, die um 1 kürzer ist als die aktuelle Länge
widerstand := leftstr(widerstand,length(widerstand)-1);
Und kurz:
Rechts eins abschneiden solange das eine "0" oder ein "," ist.