Führende nullen aus einem String löschen

[Christian Seehase]

Moin Sebastian,

ich war von der Schleife die Du oben gepostet hast ausgegangen, da steht noch 0.
Probier mal das Projekt über Projekt erzeugen neu zu erstellen.

[Nalincah]

:wall: :wall: :wall: :wall:

Der Source den ich verändert hab war aus nem Package in dem meine neuen Kompos liegen. Leider hab ich nur den Source im Projekt verändert, das Package aber nicht neu kompiliert. Deshalb hat der auch nicht bei

Delphi-Quellcode:

for i := 1 to length(value)
begin

end;

gemeckert

[himitsu]

Delphi-Quellcode:

For i := 1 to Length(value) do
  If value[i] = '0' Then Delete(value, i, 1) Else Break;

Wenn du das so machst, löschst du nur die 1. 3. 5. ... Null.
Wenn du schon so löschen möchtest, solltest das so abändern.
(die Zeichenfolge verschiebt sich doch nach links, wenn vorn etwas gelöscht wird)

Delphi-Quellcode:

For i := 1 to Length(value) do
  If value[i] = '0' Then Delete(value, 1, 1) Else Break;
                                      {^}

Das entspricht deinen geposteten Version, nur etwas optimiert und die 0 durch 1 ersetzt.
(0 => 1 siehe Chris)

[Nalincah]

Da ich jetzt weiß was ich falsch gemacht hab, hab ich das so gemacht

value := inttostr(strtoint(value));

Klappt jetzt Wunderbar!
Danke! :dp:

[Christian Seehase]

Moin Himitsu,

wobei ich da die Variante mit der While Schleife übersichtlicher finde.

[himitsu]

Wenn die nicht neu kompiliert hast, ist es wahrscheinlich, das der Debuger das "i" im Quellcode nicht mit "i" im laufenden Programm verbunden hat. Und daher auch 0 in deinem Bild anzeigte.

[Nalincah]

Ich hab in meinem Projekt den Source gesehen, aber kompiliert wurde das Programm immer mit der alten dcu, richtig?