Cita:
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; for y := 0 to 24 do begin
Columnas[y] := Char(y+100); end;
Case Ord(C) of
97..122: Col:=0; 48..57: Col:=2; 10,13: Col:=22; else begin
for x := 0 to 24 do begin
if C=Columnas[x] then begin
Col:=x; end
else Col:=24; end;
end;
end;
end;
El caracter #123={ está en el indice 23 de Columnas......
No entiendo cual es tu problema
Salud OS