Forum: Object-Pascal / Delphi-Language
Delphi
by Union,
12. Okt 2011
Ja, Du hast Recht. Müsste geändert werden in:
// 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...
Forum: Object-Pascal / Delphi-Language
Delphi
by Union,
11. Okt 2011
Die Funktionen sind in strutils enthalten, dies müsste der uses Klausel hinzugefügt werden.
Forum: Object-Pascal / Delphi-Language
Delphi
by Union,
11. Okt 2011
Auf Deutsch ausführlich:
// 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 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 :=...
Forum: Object-Pascal / Delphi-Language
Delphi
by Union,
11. Okt 2011
Also für die Darstellung würde ich spontan mal sagen:
while rightstr(widerstand,1) in do
widerstand := leftstr(widerstand,length(widerstand)-1);