tEdit zeichen löschen

[Gehstock]

und zwar soll auf testendruck aus z.B.1234567 ---123456 werden also ein Korrekturbutton

dachte mir das so

Delphi-Quellcode:

Edit1.Text:=Edit1.Text -1;

geht aber net

[Dax]

Delphi-Quellcode:

Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1);