Führende nullen aus einem String löschen

[Nalincah]

Ich hab z.B. folgenden String: "0000058356"
Daraus will ich das machen: "58356"

habs mit ner while und ner for schleife versucht
und das klappt auch nicht:

Delphi-Quellcode:

value := inttostr(strtoint(value));

Gibts da evtl. ne funktion?

[Christian Seehase]

Moin Sebastian,

Du könntest es z.B. auch so machen:

Delphi-Quellcode:

while pos('0',Value) = 1 do Delete(Value,1,1);

mir ist nur nicht klar, was an Deinem Beispiel nicht funktioniert.
Damit müsste das auch gehen, genau genommen sogar besser.

[himitsu]

Also bei mir geht das.

Delphi-Quellcode:

value := inttostr(strtoint(value));

Was geht den bei dir daran nich? (Fehlermeldung...)

[Nalincah]

Ich benutze das mit dem Quickreport
hab die kompo dbtext erweitert und ein OnPrint-Ereignis erstellt.
Wenn man jetzt ein db-feld auswählt mit den nullen am anfang dann soll der im onprint ereignis die nullen löschen. hab das z.b. auch mit

Delphi-Quellcode:

for i := 0 to length(value)
begin
  if value[i] = '0' then
    delete(value, i, 1)
  else
    break;
end;

Im einzelschritt zeigt der mir für "Value[i] beim ersten mal "#0" an. Was heißt das?

[Christian Seehase]

Moin Sebastian,

die Indizes eines Strings fangen bei 1 an, nicht bei 0.

Aber was funktioniert bei Dir an der von Dir geposteten Zeile nicht?

[Nalincah]

nichts funktioniert...das der entfernt da die nullen einfach nicht. das steht das gleiche wie vorher

[Nalincah]

Kann mir jemand das erklären?? Das ist der Wert von i nach dem ersten durchlauf

[Christian Seehase]

Moin Sebastian,

Zitat:

Zitat von General2003

Kann mir jemand das erklären?? Das ist der Wert von i nach dem ersten durchlauf

Zitat:

Zitat von Christian Seehase

die Indizes eines Strings fangen bei 1 an, nicht bei 0.

also muss Deine Schleife auch bei 1 anfangen, und nicht bei 0.

Wie ist Value deklariert. So recht erklären kann ich mir das so nicht.

[Nalincah]

Ich starte die Schleife doch mit i = 1
Guck mal genau...

So sieht der Kopf der Proc. aus:

Delphi-Quellcode:

procedure TQRDBTextNull.MyOnprint(sender: TObject; var Value: String);

[himitsu]

Ich hab noch 'nen anderen komischen Fehler - kein do. (for to do)

Wenn ich so was machen meckert mein Compiler, deiner anscheinend nicht.
Oder sehe ich da was nicht?

[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?