Encuentra los 5 (o mas) errores...

[papulo]

Primero un C&P

Código Delphi [-]
 procedure TFiller.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
 case Key of
 VK_F5 :
          begin
             case iStatus of
             0 : exit;
             1 : RadioButton2_Init;
             else Lanzar_Consulta;
          end;
 VK_ESCAPE :
          begin
             case iStatus of
             0,1 : Filler.Close;
             10,50 :
                   begin
                      iStatus := 1;Lanzar_Consulta;;
                   end
                   else
                   begin
                      iStatus := (iStatus - 1);Lanzar_Consulta;
                   end;
          end
 VK_F2 :
          begin
             if iStatus=1 then
             begin
             iStatus := 10;
             Lanzar_Consulta;
             end;
          end
 VK_F3 :
          begin
             if iStatus=1 then
             begin
             iStatus := 50;
             Lanzar_Consulta;
             end;
          end
 VK_RETURN :
          begin
             case iStatus of
             11,52: exit;
             10,50..51 : begin
                          iStatus := (iStatus+1);
                          Lanzar_Consulta;
                          end;
          end
 end;

Despues, la pregunta:

¿Que falla exactamente? Me jugaria un testiculo (hipoteticamente hablando) a que es de sintaxis, pero la idea es correcta.

Ya direis...

[delphi.com.ar]

Empezado por papulo

¿Que falla exactamente? Me jugaria un testiculo

¿Qué es lo que sucede?... ¿No compila?... ¿Produce un error?.. ¿No hace lo que querés?... ¿A cuánto se cotiza el testículo en el mercado ilegal de órganos?

[roman]

Es realmente evidente. Y también lo será para tí en cuanto te pongas a revisar la sintaxis de la sentencia case (un error por cada uno).

// Saludos

[rastafarey]

A todos los cases mas internos le falta un end; Aunque no entiendo la pregunta.

Creo que eso no hay preguntarlo ya qu ele compilador te dice que tienes ese error.

Osea no entiendo por que la pregunta.

[papulo]

A ver, por partes.

Ante todo gracias por responder.

1º EL haberme levantado a las 6 de la mañana para presentar unas practicas antes del trabajo, me han dejado bastante grogui para el resto del dia, maxime con la paliza fisica que me di ayer entrenando.

2º La empanada ha derivado en que, por ejemplo, iniciara todos los Statements con

Código Delphi [-]
begin...end

Lo cual ya lo he solucionado.

3º Estoy mirando la ayuda de "case statements" a ver que saco en claro de ello. Esta fallandome lo siguiente:

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

Donde el compilador me dice "[Error] mainform.pas(521): For loop control variable must be simple local variable"


4º A modo de pequeña bio, comentaros, que el tema de la programacion lo llevaba a nivel 0, pero 0 de verdad. En la entrevista de trabajo, cuando me lo pregunto, le dije que en la facultad, yo siempre me ponia con alguno de modulo, yo diseñaba en el papel y las ideas de los algoritmos, para que luego el colega implementara a nivel de programacion. De DELPHI (y cualquier otro lenguaje) 0 de 0. Aun asi, todos los dias me estoy machacando con este lenguaje, y la programacion en general, para poder mejorar lo mas rapido posible. Doy las gracias porque me resulta divertido, ameno y excitante el trabajo que tengo.
Y aunque no hace ni 2 meses que estoy trabajando aqui, me busco la vida como puedo. La ayuda general me "ayuda", si no googleo o bien recurro a vuestra experiencia, que por aqui veo que sobra, pero mi intencion es aprender, aprender y aprender.
Pero el hecho de que las postee aqui, no implica que me quede de brazos cruzado esperando a que las solventeis y yo me quede tan pancho. En cuanto escriba esta respuesta, me ire a la ayuda, a ver que significa lo que me dice el compilador, a ver si lo entiendo (aunque por suerte, ingles si que se) y a ver si en ultima instancia, lo resuelvo antes de que vosotros me deis una solucion.

PD: Aun asi, me encanta leeros y ver que hay gente activa por aqui. A ver cuando puedo ayudar yo, pero necesitare tiempo...

Hasta otra!!!

[ContraVeneno]

Entiendo la intensión de Roman, la verdad es que los errores son bastante claros, pero bueno. De cierta manera hubiera respondido algo así como "bastante claros los errores, el compilador te los dice".

En fin, dadas las circunstancias daré mi respuesta: las VK no creo que las puedas usar como condición de un case, de ahí el error que mencionas. Segundo, para cada case incias con begin y end pero te falta el punto y coma.

Para la próxima vez, revisa muy bien tu código y la ayuda que delphi te proporciona. Estoy seguro que muchas tus dudas las podrás resolver si presionas F1 en Delphi, si eso no te lo soluciona, pues una búsqueda en la red o en los foros estoy seguro que te ayuda. Y si de plano sigues con la duda, entonces puedes colocar un nuevo hilo con tu pregunta específica.

Supongo que ya leíste la guia de estilo del foro.

Un saludo