Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**KodeZwerg**

Gern geschehen, mach es dann aber bitte so: if Length(Edit1.Text) > 0 then Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1);

KodeZwerg Registriert seit: 1. Feb 2018 3.691 Beiträge Delphi 11 Alexandria	#6 AW: Löschversuch funktioniert nicht 16. Aug 2018, 21:57 Gern geschehen, mach es dann aber bitte so: if Length(Edit1.Text) > 0 then Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1); Gruß vom KodeZwerg
	Zitat