¿Existe función para asignar a una cadena el resultado de concatenarla con otra?

[[Al González]]

Pues de que existe, existe, en la unidad SysUtils, pero la han marcado con una espantosa X:

Código Delphi [-]
{ AppendStr appends S to the end of Dest. AppendStr is provided for
  backwards compatibility only. Use "Dest := Dest + S" instead. }

procedure AppendStr(var Dest: string; const S: string); deprecated;

Código Delphi [-]
a := a + b;

11 caracteres.

Código Delphi [-]
IncStr(a, b);

2 caracteres más.

Código Delphi [-]
Cadena1 := Cadena1 + Cadena2;

29 caracteres.

Código Delphi [-]
IncStr(Cadena1, Cadena2);

Sólo cuatro caracteres menos.

Hubo un tiempo en el que, siendo yo más joven, empecé a crear una función "asignadora" por casi cada función "devolvedora" que tenía. Buscaba ciegamente el punto máximo de la simplificación como quien busca la piedra filosofal.

Hasta que comprendí que simplicidad no significa podar el código cual ayuntamiento de Chihuahua solía hacer con las platanáceas de las avenidas (¡dejaban solamente el p' tronco!).

También estaba en juego el asunto de la inteligibilidad y esa otra simplicidad que, a diferencia de los caracteres, no es gráfica, sino, digamos, neuronal. Así pues, dejé de hacer mero envolvimiento de expresiones de código sencillas en rutinas asignadoras, porque dicho envolvimiento, sencillamente, les restaba simplicidad.

Espero haber orientado de alguna manera.

Al González.

P.D. ¡Cómo extraño los sicomoros y sus hojas caídas de otoño arañando el suelo en un atardecer rojizo!