Encuentra los 5 (o mas) errores...

[papulo]

Gracias por los consejos.

Si que lei la guia de estilo del foro, realmente son muy utiles para facilitar la comunicacion dentro de los mismo.

La intencion de Roman la entendi desde el principio, y si tengo dudas, primero ojeo la ayuda "F1", pero todavia estoy demasiado verde, como para que me resulte todo lo util que en realidad sera. Estoy aprendiendo la base, demasiados conceptos cada dia, los que se repiten del dia anterior, el grado de empanamiento que pueda tener (hoy alcanzaba cotas maximas).

Conforme mas soltura coja, mas extrapole el codigo y mejor lo comprenda, mejor podre aprovecharme de la ayuda de los demas (hablo de usar la busqueda avanzada, no de gorronear conocimientos), pero por ahora necesito, al menos cuando no logro comprender la situacion, que me lo den mascadito, como a un niño pequeño, para comprenderlo bien y poderlo asimilar correctamente. Luego ya me encargare yo de ir aumentando esa base y profundizando en las posibilidades que me brinden mi habilidad y mi perseverancia.

Y disculpad mi ausencia de tildes, pero este teclado esta cascado y no me deja escribirlas. Cuando escriba desde casa ya veran que si va bien.

[ContraVeneno]

Luego nos cuentas si resolviste lo del "for loop control". Y si no, pues ya sabes que aquí abrá gente que este dispuesta.

[papulo]

¡¡RESUELTO!! Aunque la ayuda me ha servido lo mismo que si estuviera en Arameo, lo que he visto es que comenzaba el statement con un condicional, y va ser que eso no le gustaba, asi que con este sencillo retoque

Código Delphi [-]
 VK_F2 : begin
            if iStatus=1 then
            begin
              iStatus := 10;
              Lanzar_Consulta;
            end;
         end;

Ya lo he hechado andar, ya que si me permite usar el if dentro del begin.

[roman]

A ver, a ver. Discúlpame por favor papulo. Realmente no era mi intención ser irónico. Simplemente pensé que al ver la ayuda te darías cuenta de cuál era el error. Me percato de que no lo dije en términos correctos y para mitigar un poco la mala impresión te explico aquí lo que sucede:

Cada etiqueta del case puede omitir begin..end si hay una sóla sentencia pero si hay más de una debes ponerlos:

Código Delphi [-]
case ... of

  etiqueta:
  begin
    ...
  end;

end;

Pero cada case debe siempre terminar con un end.

Así que, cuando tú pones

Código Delphi [-]
case Key of
 VK_F5 :
          begin
             case iStatus of
             0 : exit;
             1 : RadioButton2_Init;
             else Lanzar_Consulta;
          end // <-- este end corresponde al case interior

          // falta el end de la etiqueta VK_F5
 VK_ESCAPE :

   ...

El end que aparentemente corresponde a la etiqueta (por laindentación dada) realmente corresponde al case anidado y por tanto falta un end.

Como esto sucede en las cinco etiquetas del case externo por ello son cinco errores.

// Saludos y disculpas

[papulo]

Gracias Roman. Para nada me tome a mal tu comentario, solamente supuse que creias que mi nivel era mayor, y que en la ayuda lo veria de forma evidente, pero aun estoy aprendiendo, y de una forma bastante autodidacta, que me hace sufrir como un burro.

Gracias tambien a todos por la ayuda y las aclaraciones.