Delphi Common functions

Strutils

This package contains some string-related functions:

string addition

var S1, s2:string; Begin S1: = Concat (' A ', ' B ');　　 　Connect two strings, S1 variable equals AB. S2: = Concat (' Borland ', ' Delphi ', ' 7.0 ');　　Connect three characters, S2 variable equals borland Delphi 7.0. End

Remove the last character:

var  s:string;begin  S: = ' 123 ';

Caption: = Copy (S, 1, Length (s)-1); , minus the last character, at which point the value of caption is 12.
End

Delphi Common functions