die letzten 9 Zeichen in einem Memo löschen

[Alterauge]

hallo,

die ersten 9 Zeichen in einem Memo löschen geht:

Delphi-Quellcode:

Memo1.Text := Copy(Memo1.Text, 10, length(Memo1.Text));

Was muss ich machen, um die letzten 9 Zeichen in einem Memo zu löschen?

[DeddyH]

Die Länge ist doch bekannt, davon kann man ja X Zeichen abziehen, um an die gewünschte Stelle zu kommen. Wäre es übrigens nicht evtl. günstiger, das mittels Selektion zu machen, statt 2 Mal auf Memo.Text zuzugreifen?

[mkinzler]

Delphi-Quellcode:

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

[Alterauge]

Super geht !

Danke :-)

[himitsu]

Es gibt auch noch die Befehle Delete oder als Copy-Ersatz das LeftStr.

PS: Über TMemo.SelStart und TMemo.SelLength die gewünschten 9 Zeichen selektierten und dann

Delphi-Quellcode:

TMemo.SelText := '';

.

[Popov]

Ich würde das u. U. etwas komplizierter machen. Wäre da sein normaler String, könnte man es so ohne bedenken machen. Bei einem TStrings können sich am Ende Steuerzeichen einschleichen, ohne dass man sich dessen bewusst ist.