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?