Führende Null entfernen

[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