@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
