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

var
test: System.String;
begin
  test := 'Sample Text To Delete Last Character;!';
  test := Copy(test,1,length(test)-1);
  ShowMessage(test);
end;

Variable is Established;
A SampleText is provided to the Variable;
Variable then Reference itself in the Copy command which
the Copy command takes the variable string by coping it by its length from index 1(length)-1
which return the result to the variable itself;
A Message is used to show the result;

the result would be the text without exclamation; // Sample Text To Delete Last Character;