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:
Cita:
posición separador
3 -
3 -
5 -
6 -
11 -
|
Cadena: variable String que le inserto un separador según la posición.
Código Delphi
[-]function FormateaCadena(Query: TADOQuery, Cadena: String): String;
var
Valor, Separador : String;
i,j : integer;
begin
Query.Open;
Query.First;
Separador := Query.Fields[1].AsString; for i:= 1 to Query.RecordCount do begin
for j:=1 to Query.Fields[0].AsInteger do begin
Valor := Valor + Cadena[j];
end;
Query.Next;
Valor := Valor + CadenaSeparador;
end;
Query.Close;
Result := Valor;
end;
Al llamar la funcion
Código Delphi
[-]text := FormateaCadena(qryXXX, '10024888');
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.