insertar texto en cadena de texto

[sabueso1010]

hola foro tengo una cadena llamada c1: string;
quiero agregar en la posicion 70 una cadena que contiene por ejemplo "Hola"
como puedo escribir en una cadena de texto en una posicion especifica ?

Saludos y gracias de antemano.

[[duilioisola]]

Utiliza copy.
Tomas la parte anterior a la posicion y la parte posterior a esa posicion.
Luego concatenas las tres partes.

Código Delphi [-]
var
   c1 : string;
   c2 : string;
begin
   c1 := 'abcdefghij';
   c2 := 'Hola';
   c1 := copy(c1, 1, 5) + c2 + copy (c1, 6, Length(c1) - 5);
end;

[sabueso1010]

acaso alguien sabe si existe algo parecido a insert o algo asi en donde se especifique el texto a agregar y la posicion ? , saludos.

[ecfisa]

Hola.

acaso alguien sabe si existe algo parecido a insert o algo asi en donde se especifique el texto a agregar y la posicion ? , saludos.

Si, el procedimiento Insert.

Código Delphi [-]
var
  Cad: string;
begin
   Cad:= 'UN TEXTO';
   Insert('Hola', Cad, 3);
   ...

Saludos.

[sabueso1010]

Gracias ecfisa, quedo perfecto como tu lo mostraste, mucho mas facil tu codigo
saludos.