Как обрезать последние 3 символа в Delphi?

Question

[Chvalov]

Подскажите как обрезать последние 3 символа в Delphi

Вот кусок кода:
BatchingEdit.Text:=p^.gr.Batching;
p^.gr.Batching здесь и хранится мой текст который нужно обрезать

Answer 1

[Виталий Витренко]

BatchingEdit.Text := copy(p^.gr.Batching, 1, length(p^.gr.Batching)-3);

Comments

[Chvalov]

Отлично, работает, только вот теперь у меня бывает отрезает лишнее.
А можно так-же коротко отрезать все что после пробела, но при этом вместе с пробелом.

[Виталий Витренко]

Chvalov: Попробуйте так copy(p^.gr.Batching, 1, pos(" ",p^.gr.Batching)-1);

[Chvalov]

Виталий Витренко: Спасибо, работает отлично, правда если пробела нет то обрезает все.
Но для меня это не важно !

[Виталий Витренко]

Chvalov: можно делать проверку, если pos(" ",p^.gr.Batching) = 0, значит пробелов нет.