|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Löschversuch funktioniert nicht
16. Aug 2018, 21:36
Eine weitere Möglichkeit wäre:
Delphi-Quellcode:
var
mytext : string;
begin
mytext:=self.Edit1.Text;
delete(mytext,length(mytext),1); // letztes Zeichen löschen
self.Edit1.Text:=mytext;
end;
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|