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