0en nach Komma entfernen

[Union]

Ja, Du hast Recht. Müsste geändert werden in:

Delphi-Quellcode:

// Wenn die String-Variable "widerstand" ein Komma enthält dann
if pos(',', widerstand) > 0 then
begin
   // solange das letzte eine Zeichen der String-Variablen "widerstand" eine "0" ist, führe aus
   while rightstr(widerstand,1) = '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);
   // wenn das letzte eine Zeichen der String-Variablen "widerstand" Komma ist, dann
   if rightstr(widerstand,1) = ',' then // Oder FormatSettings.DecimalSeparator
    // 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);
end;