Zitat von
MarquiseDeSade:
...
Dies habe ich so gelöst:
Delphi-Quellcode:
edit1.text:=IntToStr(StrToInt(edit1.text) div 10);
if StrToInt(edit1.text)=0 then
edit1.text:='';
...
Warum nicht einfach so:
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;
Dann ergibt sich das Problem gar nicht.
Willnix