Añadir carácter según una posición x a un String

[Ledian_Fdez]

Hola chicos intento hacer una funcion que me permita añadir un carácter según una posición x a un String


Query: Consulta que me devuelve cada cuanto caracteres debo poner un separador.
Resultado de la consulta:
posición separador
3 -
3 -
5 -
6 -
11 -

Cadena: variable String que le inserto un separador según la posición.

function FormateaCadena(Query: TADOQuery, Cadena: String): String;
var
Valor, Separador : String;
i,j : integer;
begin
Query.Open;
Query.First;
Separador := Query.Fields[1].AsString; // obtengo el caracter de separador
for i:= 1 to Query.RecordCount do // ciclo para recorrer la tabla y saber cada cuantos caracteres va el separador
begin
for j:=1 to Query.Fields[0].AsInteger do // ciclo para ir armando la cadena con el separador
begin
Valor := Valor + Cadena[j];
end;
Query.Next;
Valor := Valor + CadenaSeparador;
end;
Query.Close;
Result := Valor;
end;

Al llamar la funcion

text := FormateaCadena(qryXXX, '10024888'); // text = 100-100-100-248-248- ...

Esta era mi idea pero la verdad no funciona pues el ciclo en j se me repite y pufff ... no logro hacerlo bien.

en espera de su ayuda
y mil grasias de antemano
lo salu2.

[ecfisa]

Hola Ledian.

La verdad, o no entiendo el planteo, o los ejemplos que das no se condicen con los resultados. Tal vez si pudiesemos conocer la estructura del registro con los campos que trae la consulta y como deben considerarse los valores de posición obtenidos...

Del ejemplo:
text := FormateaCadena(qryXXX, '10024888'); // text = 100-100-100-248-248- ...
Pareciera que deben tomarse n caracteres y agregarlos n veces separados por el separador y valor obtenido de la consulta, pero sigo suponiendo...

Saludos. :)

[Ledian_Fdez]

Chicos quizas me complique con la función y no supe explicarme. Se los voy a poner mas sencillo, digamos que quiero a una cadena de caracteres insertarle en la posicion x otro caracter.

Pos := 3;
Caracter := '-'
cadena := InsertaCaracter ('10024888', Pos, Caracter);
//cadena = 100-24888


Es algo como esto, sabiendo eso yo lo adapto a lo que quiero mas arriba.

gracias de antemano.

[ecfisa]

Hola Ledian.


...
var
str : string;
ch : char;
posi: Integer;
begin
str := '10024888';
ch := '-';
posi := 4; // 3+1 (entre 0 y 2)
Insert(ch, str, posi);
...


Saludos :)