hola:
me marca un error I/O 103 en el siguiente codigo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
Col: Integer;
Edo: Integer;
N: Integer;
C: Char;
F: File Of Char;
x: Integer;
begin
Col:=0;
Edo:=1;
AssignFile(F, Edit1.text);
Reset(F);
for N:=0 to FileSize(F) - 1 do
begin
Read(F, C);
for x:=0 to 25 do
begin
if C=Matriz[0][x] then
begin
Col:=x;
Edo:=StrToInt(Matriz[Edo][Col]);
end;
Memo1.Text:=Memo1.Text+Matriz[Edo][Col];
end;
CloseFile(F);
end;
end;
estuve leyendo que el problema es que no se use el Reset(F) pero yo si lo tengo, de un momento a otro comenzo a fallar no se que hice mal.
gracias!