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.

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.

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.