Hola:
aki ando de nuevo, lo que pasa ahora esque quiero que cuando suceda un cierto evento el ciclo for no se incremente, y asi vuelva a leer el ultimo caracter que leyo.
hay alguna funcion para hacer eso, que desde cierto punto del ciclo for, por ejemplo desde dentro de un If le puedas mandar una orden al ciclo para que repita el ultimo giro, y no incremente la variable?
Código Delphi
[-]
for N:=0 to FileSize(F) -1 do
begin
Seek(F, N);
Read(F, C);
for x:=0 to 2 do
begin
if C=Letras[x] then
Col:=1;
end;
for x:=0 to 9 do
begin
if C=InttoStr(Numeros[x]) then
Col:=3;
end;
for x:=0 to 25 do
begin
if C=columnas[x] then
begin
Col:=x;
end;
end;
if Edo>=0 then
Begin
Edo:=Matriz[Edo][Col];
Memo1.Text:=Memo1.Text+C;
Edit2.Text:=Edit2.Text+InttoStr(Edo);
Edit3.Text:=Edit3.Text+InttoStr(Col);
Lexema:=Lexema+C;
End
Else
Begin
Edo:=0;
AQUI QUIERO QUE SE REGRESE Y NO INCREMENTE A N, PARA QUE PUEDA LEER EL ULTIMO CARACTER QUE LEYO
end;
CloseFile(F);
end;
gracias!