Führende Null entfernen

[MarquiseDeSade]

Hallo

Also auch wenn es keine führende Null gibt, geht alles bestens.

[Muetze1]

@willnix:

Edit1.Text-1 Was soll das ergeben? Was subtrahiert er denn wie, wenn du eine Ziffer von einer Zeichnkette (String) abziehst? Das -1 gehört ausserhalb der Length() Klammern!

@MarquiseDeSade:

Von wegen. Dein Code löscht so oder so Zeichen - du fragst doch nirgendwo ab, ob es eine führende Null gibt.

@Threadersteller: Ich würde das ganze Problem anders anfangen. Du arbeitest hier mit Strings, aber warum? Eine führende Null bekommst du auch einfach anders weg: wandle den String in eine Fliesskommazahl um und dann zurück in eine Fliesskommazahl. Dabei werden eventuelle führende Nullen wie auch Exponenten (bei Bedarf, siehe Umwandlungen) entfernt bzw. ausgeschrieben.

[Jens Schumann]

Hallo,
ich würde führende Nullen wie folgt löschen

Delphi-Quellcode:

While str[1]='0' do
  Delete(Str,1,1);

[willnix]

Also um hier mal ein paar Missverständnisse aufzuklären:
Das hier:
Edit1.Text-1
War ein Tippfehler, OK.
Und was hier irgendwie untergeht mein Code, löscht kein vorangestellte Null.
Die vorangestellte Null ist entstanden weil der Threadersteller um die letze Ziffer in einem Edit zu löschen folgenden Code verwendt hat:

Delphi-Quellcode:

edit1.text:=IntToStr(StrToInt(edit1.text) div 10);
    if StrToInt(edit1.text)=0 then
      edit1.text:='';

Ich habe ihm diesen als alternaive gegeben bei der gar keine Null entsteht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  EditTemp: String;
begin
  EditTemp := Edit1.Text;
  Delete(EditTemp, Length(Edit1.Text), Length(Edit1.Text));
  Edit1.Text := EditTemp;
end;

Mein Code löscht also keine vorangestellte Null sondern umgeht deren Entstehung beim löschen der letzten Ziffer eines Edits.
Willnix

[MarquiseDeSade]

Zitat von willnix:

Mein Code löscht also keine vorangestellte Null sondern umgeht deren Entstehung beim löschen der letzten Ziffer eines Edits.
Willnix

Jap, darum ging es. Auch wenn es manchmal lästig ist, sollte man doch den ganzen thread lesen

gruß tobias