Case else

[intercubo]

hola:

quisiera saber si puedo poner un for dentro del else de un case, porque al parecer no esta ejecutando lo que yo quiero:

aqui esta el codigo:

Código Delphi [-]
Case Ord(C) of
      97..122:
      Col:=0; //Caracter
      48..57:
      Col:=2;  //Numero
      10,13:
      Col:=22;  //Enter
      else //else del case
        begin
          for x:=0 to 24 do
             Begin
              if C=Columnas[x] then
                Begin
                  Col:=x;  //Caracter de la Matriz
                End
              else
                Col:=24; //Otra cosa
             end;
        end;

Gracias!!!

[[egostar]]

Empezado por intercubo

hola:

quisiera saber si puedo poner un for dentro del else de un case, porque al parecer no esta ejecutando lo que yo quiero:

Me pregunto que es lo que no hace.....

Salud OS

[intercubo]

Código Delphi [-]
Case Ord(C) of      97..122:      Col:=0; //Caracter      
48..57:      Col:=2;  //Numero      10,13:      Col:=22;  //Enter      
else //else del case        
begin          
for x:=0 to 24 do             
Begin              
if C=Columnas[x] then                
Begin                  
Col:=x;  //Caracter de la Matriz                
End              
else                
Col:=24; //Otra cosa             
end;       
 end;

Col siempre toma el valor 24, aunque C si sea igual a uno de los valores del arreglo Columnas[] cuando no es una de las 2 primeras opciones (caracter o numero)

[[egostar]]

Empezado por intercubo

Col siempre toma el valor 24, aunque C si sea igual a uno de los valores del arreglo Columnas[] cuando no es una de las 2 primeras opciones (caracter o numero)

Pues he probado tu código y si me da el número de indice del arreglo columnas.

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  x,y: integer;
begin
  C := #123; // #123 = caracter {
  for y := 0 to 24 do begin
      Columnas[y] := Char(y+100); //Aquí ingreso los caracteres 100 al 124
  end;
  Case Ord(C) of
     97..122: Col:=0; //Caracter
     48..57: Col:=2;  //Numero
     10,13: Col:=22;  //Enter
     else begin
            for x := 0 to 24 do begin
                if C=Columnas[x] then begin
                   Col:=x;  //Caracter de la Matriz
                end
                else Col:=24; //Otra cosa
            end;
     end;
  end;
end;

El caracter #123={ está en el indice 23 de Columnas......

No entiendo cual es tu problema

Salud OS

[[egostar]]

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  x,y: integer;
begin
  C := #123; // #123 = caracter {
  for y := 0 to 24 do begin
      Columnas[y] := Char(y+100); //Aquí ingreso los caracteres 100 al 124
  end;
  Case Ord(C) of
     97..122: Col:=0; //Caracter
     48..57: Col:=2;  //Numero
     10,13: Col:=22;  //Enter
     else begin
            for x := 0 to 24 do begin
                if C=Columnas[x] then begin
                   Col:=x;  //Caracter de la Matriz
                   ShowMessage('Salio en Columna '+Inttostr(x)); //Muestro el valor de x
                   Exit; //Salgo del for
                end
                else Col:=24; //Otra cosa
            end;
     end;
  end;
end;

Edito: Aunque creo que se donde está el problema, como no haces un brake en el for, por eso es que sigue mostrando Col=24....., he corregido el código agregando un Exit.

Vaya genere otro post en lugar de editar el anterior....... bueno, inc(egostar)

[intercubo]

gracias, funciona bien con el exit, pero el problema es que al parecer se sale de los 2 for, solo quiero que se salga del inmediato superior, como puedo hacer eso, o que otra solucion tengo?

de antemano muchas gracias por la ayuda!

[jachguate]

En lugar de exit; llama a break;

Hasta luego.

[[egostar]]

Empezado por jachguate

En lugar de exit; llama a break;

Hasta luego.

Pues gracias amigo jachguate, me creeras que no me acordaba del famoso brake, de hecho nunca he tenido que usar el abortar un bucle..., exit, halt, brake son palabras que no uso normalmente....

Salud OS

[jachguate]

Bueno, yo si las uso... aún recuerdo que break fue introducido en Turbo Pascal 7 (si no me traiciona la memoria) y desde el inicio le vi la utilidad, pues da una salida elegante para casos donde no nos quedaba mas que retorcer un poco las cosas:

Código Delphi [-]
procedure PagarSalarios;
var
  I: Integer;
begin
  for I:= 0 to Empleados.Count - 1 do
  begin
    PagarSalarioEmpleado(Empleados[i]);
    if SaldoCuenta < 0 then
      Break;
  end;
end;

que mal ejemplo, verdad..

Hasta luego.

[[egostar]]

Empezado por jachguate

Bueno, yo si las uso... aún recuerdo que break fue introducido en Turbo Pascal 7 (si no me traiciona la memoria) y desde el inicio le vi la utilidad, pues da una salida elegante para casos donde no nos quedaba mas que retorcer un poco las cosas:

Bueno, si la use cuando trabajaba con Turbo Pascal, pero con delphi no he tenido que usarla hasta ahora, no se si sea bueno o malo, o todo lo contrario.

Salud OS