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

[Stilet]

lexab18

Дык может переменка твоя пустая...

[lexab18]

что-то я не совсем понимаю..

[Олвин]

Тогда выкладывайте весь проект вместе с файлом, из которого читаем.

[lexab18]

вот
проект!!!!.rar

[Олвин]

Правильно сказал Stilet, переменная s - пустая. А в условии есть обращение к её последнему символу. При нажатии кнопки в edit1, вызывается OnKeyDown. Буква ещё не появилась, edit1 всё ещё пустой, а код уже выполняется. Это объяснение причины этой ошибки. А так как проект сделан не очень хорошо, то ошибок будет ещё больше.
Для начала - зачем читать файл каждый раз при нажатии любой кнопки в Edit1? Наверное задумка была делать это при нажатии enter? Тогда нужно добавить проверку (а что за кнопку-то нажали?):

if key <> 13 then
 exit;

Далее. Подумайте над другим способом реализации всего приложения. 5 форм выглядят одинаково и делают одно и то же. Могу подсказать вариант, но лучше сначала подумайте самостоятельно.

[lexab18]

ну как бы в условии задания мне нужно было заносить в базу города которые отсутствуют в файле , я решил сделать это что при нажатии на enter города будут заноситься в базу.
теперь выскакивает ошибка I/O 32, ссылаясь на это

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

[lexab18]

Проблема решилась.
Нашел нужный код и переделал под себя)
Осталось ток исключения написать.

[lexab18]

Столкнулся с другой проблемой.
В общем нужно написать исключения, например пользователь вводит слово Ярославль, слов начинающихся на ь вобще не существует.
Написал так

  if ((s1='ь') or (s1='ы') or (s1='ъ') or (s1='й'))
  then begin l:=length(s2)-1;
  if s2[l]=s[1] then
  label2.caption:=S;
  if S1=S[1] then begin
  label2.caption:=S;

Никак не могу понять в чом ошибка, вроде по логике все правильно хотя почему то когда ввожу слово мне выводит последнюю строку из файла.
Дальше никак не могу понять как сделать чтоб не было повторов в игре, ну т.е слова которые я ввел и вывел комп больше в игре не использовались.
Кто может помочь?

[Олвин]

1). Проект изменился, добавились новые переменные. Прошу расшифровки! Что такое s1, s2, s? Если тип s1 - char, то можно проще условие записать:

if s1 in ['ь', 'ы', 'ъ', 'й']...

2). Есть два условия с одинаковыми строками (label2.caption:=S). Нельзя их объединить, использовав OR?
3). Повторы в игре. Можно использовать объект TStringList (он хранит строки).

var
povtors : TStringList;
begin
povtors := TStringList.Create;
//Создали объект, теперь в него можно добавлять города, встретившиеся в игре:
povtors.Add(s); // Здесь s - это город
// И в любой момент можно проверить наличие города в списке:
if povtors.IndexOf(s) <> 0 // TRUE, если город в списке есть
// В конце работы программы объект необходимо уничтожить:
povtors.Free;

[lexab18]

s1- это последний символ в веденном слове.Тип s1 так и есть char.
S-это то слово которое должен вывести комп.S2 это введенное мной слово, хотя я думаю эта переменная не нужна.
С повторами уже сам разобрался.
P.S возникла новая проблема.Когда ввожу 1-ый раз слово,мне компьютер нормально отвечает, когда второй раз, вылетает ошибка I/O 32
Вот проект