Führende Null entfernen

[willnix]

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