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

[noob]

Quiero saber si existe alguna función que tenga el mismo efecto que:

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

Saludos.

[Neftali [Germán.Estévez]]

¿La puedes hacer tú? o ¿Tiene que existir?

[noob]

Ah, sí, he pensado en hacerla yo pero preguntaba que si Delphi venía con esa función ya creada al igual que la función inc para incrementar enteros por ejemplo.

[*Caro*]

Hola noob, tienes la función Concat

Código Delphi [-]
 Concat(Cadena1, Cadena2, Cadena3)

Saluditos

[noob]

@Caro con concat no gano mucho frente a Cadena1 := Cadena1 + Cadena2; pues sería:

Código Delphi [-]
Cadena1 := Concat(Cadena1, Cadena2);

Preguntaba si existía algo así como:

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

y al ejecutarse IncStr Cadena1 pasase a valer el resultado de concatenar Cadena1 con Cadena2.

Pero si no existe dicha función ya la creo yo, manos a la obra:

Código Delphi [-]
procedure IncStr(var Cadena1: String; Cadena2: String);
begin
  Cadena1 := Cadena1 + Cadena2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 a, b: String;
begin
 a := 'hola';
 b := 'adios';
 IncStr(a, b);
 ShowMessage(a);
end;

Voilá, espero que los de CodeGear tomen nota y me contraten para el próximo Delphi

[*Caro*]

Empezado por noob

@Caro con concat no gano mucho frente a Cadena1 := Cadena1 + Cadena2; pues sería:

Hola de nuevo, no ganas mucho pero sería muy parecido a lo que tienes ahora.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  a, b: String;
begin
  a := 'hola';
  b := 'adios';
  a := Concat(a, b);
  ShowMessage(a);
  //o
  ShowMessage(Concat(a, b));
end;

Saluditos

[noob]

Es parecido pero no igual porque en mi caso no hago ninguna asignación, sólo ejecuto un procedimiento y mi cadena se actualiza.

Lo mío es como sustituir:

Código Delphi [-]
i := i + 1;

por

Código Delphi [-]
inc(i)

Saludos.

[[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!

[[Delphius]]

Hola, quisiera aportar algo más, si me lo permiten.

Además de lo que nuestro buen compañero Al comenta. Debe tenerse en cuenta otro factor más: cohesión y acoplamiento.

Tal vez me digan que es hacer demasiado lío por una función... pero ¿que no es demasiado lío el buscar una función para algo simple?

Declarar dicha función lleva a alternar el orden y el propósito de la unidad. Si se declara dentro de la unidad donde se prevee usarla, se pierde un poco de cohesión. Si se la añade en una unidad de propósito general, se incrementa el acoplamiento siendo necesario ahora incluso añadir en uses otras caracteres más.

Antes de incrementar el acoplamiento prefiero perder un poco de cohesión, pero quien en definitiva dirá donde va está en dos preguntas:

¿Cuántas veces tienes pensado usarla? ¿La usas en un sólo "lugar"?

Y si hay que buscarle lío, también lo podemos llevar a cuestionarnos de que añadir una función más, implica perder unas diezmilésimas de segundos más.

Saludos,