ошибка I/O 104 (Delphi)

[lexab18]

Здраствуйте!
В общем нужно реализовать игру города.(все наверное знают как в неё играть), где для игры компьютер использует собственную базу в виде текстового файла примерно из 25 городов.
Что же все-таки неверно написано у меня, постояно вылетает ошибка I/O 104, перепробывал в разных вариантах, но выскакивают другие ошбики I/O 6 или EAccessViolation ?

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var f:textfile;
    S:string;
    l:integer;
    g,i,m:string;
begin
    S:=Edit1.text;
    AssignFile(f,'Города.txt');
    {$I-}
  append(f);
  {$I+}
  if IOResult<> 0
  then rewrite(f);
  l:=length(s);
  if Key=13 then  writeln(f,S);
   while not eof(f) do begin
  reset(f);
  read(f,g);
  end;
  if s[l]=g[1] then label2.Caption:=g;
  closefile(f);
end;

[Олвин]

1) Если файл открыт на запись (append), то на чтение (reset) его не открыть, нужно предварительно его закрыть (CloseFile).
2) Reset вынести за пределы цикла (ведь нам нужно открыть файл один раз!), иначе он будет бесконечным.
3) Условие

if s[l]=g[1] then label2.Caption:=g;

поместить внутрь цикла (наоборот - его нужно проверять при каждой итерации) и изменить его так:

if s[l] = g[1] then 
 begin
 label2.Caption := g;
 break; // нашли нужный город - выходим из цикла
 end;

Если помог - поднимите репутацию (весы слева).

[lexab18]

хм, теперь вобще не запускается , пишет BREAK or CONTINUE outside of loop

[Олвин]

Весь код сюда!

[lexab18]

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var f:textfile;
    S:string;
    l:integer;
    g,i,m:string;
begin
    S:=Edit1.text;
    AssignFile(f,'Города.txt');
    {$I-}
  append(f);
  {$I+}
  if IOResult<> 0
  then rewrite(f);
  l:=length(s);
  if Key=13 then  writeln(f,S);
  closefile(f);
  reset(f);
   while not eof(f) do begin
  read(f,g);
  end;
  if s[l]=g[1] then
   begin
   label2.Caption:=g;
  break;
end;
end;
end.

[Stilet]

AssignFile(f,'Города.txt');
{$I-}
append(f);
{$I+}
if IOResult<> 0
then rewrite(f);

Не согласен. Замени на:

    
AssignFile(f,'Города.txt');
 if Fileexists('Города.txt') then  append(f) else rewrite(f);

[Олвин]

Условие (в котором содержится break) находится вне цикла while, а должно быть внутри!
Правильно пишет "BREAK or CONTINUE outside of loop" - у нас ведь действительно break за пределами цикла! (для справки: break - это выход из цикла)

[lexab18]

Не одно так другое, теперь выскакивает ошибка EAccessVialation

procedure TForm2.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var f:textfile;
    S:string;
    l:integer;
    g,i,m:string;
begin
    S:=Edit1.text;
   AssignFile(f,'Города.txt');
 if Fileexists('Города.txt') then  append(f) else rewrite(f);
  l:=length(s);
  if Key=13 then  writeln(f,S);
  closefile(f);
  reset(f);
  while not eof(f) do begin
  read(f,g);
  if s[l]=g[1] then
  begin
  label2.Caption:=g;
  break;
  end;
end;
end;
end.

[Stilet]

выскакивает ошибка EAccessVialation

На какой строке?

[lexab18]

на

if s[l]=g[1] then