For dentro de un Stored Procedure en IB

[alapaco]

Es posible usar una sentencia FOR en interbase 6.0 ??

Yo querria hacer algo asi:


for :I in 1..length(:Cadena) LOOP
hago cosas....bla...bla...
end LOOP;

Gracias de antemano.

[[maeyanes]]

El for en IB solo sirve para recorrer los registros devueltos por un select:

Código SQL [-]
for
  select campo1, campo2, ..., campon
    from tabla 
    into :campo1, :campo2, ..., :campo3
do
begin
  /* Codigo a ejecutar por cada registro devuelto por la consulta... */
end

Ahora, podrías usar el while ... do para obtener lo que necesitas:

Código SQL [-]
LenCad = Length(Cad); /* Esto solo es un ejemplo, no estoy seguro si existe la función Length en Interbase */
I = 1;
while I <= LenCad do
begin
  /* Código a ejecutar */
  I = I + 1;
end

Saludos...

[alapaco]

Te agradezco, con el while funciona perfecto.

Y uso la función StrLen en vez de Length.