How to delete last char

Question

How to delete last character of String with substring or anything ?

For example;

var
  query : String;
begin
  query:= \'test=1&line         


        

Answer 1

I actually was going to use this to another answer called "Delete last 5 characters from a string", probably not the best way to do this but it works for simple strings as #0 indicates a termination of a string.

for your example

Query[Length(Query)]:= #0;

For the other topic example I can'nt reply on

str[Succ(Length(str)) - 5]:= #0;
showmessage(str);

P.s I would vote HeartWare answer as that would be the more acceptable way to do this. I was just showing for simple strings a quick alternative that has the desired effects(mainly for the other topic conceringing deleting the last 5 chars)