помогите разобраться с ошибкой. Опции

[iFlight]

Здравствуйте, помоги пожалуйсто разобраться в чём проблемма, при работе программы выдаётся ошибка,причём если скомпилировать программа выполяется верно, но переодически вылазит окно с ошибкой:

Project Project1.exe raised exeption class EInOutError with message 'I/O error 103'.Process stopped.Use Step or run to continue

Подчёркивает начало цикла While в следующем куске кода:

procedure TForm1.ComboBox2Select(Sender: TObject);
  var  Wear:TShmot;
       Par:string;
       poch,zar:Real;
begin
 Edit3.Text:=IntToStr(80);
 AssignFile(f,'wear.db');
 Reset(f);
 While not EOF(f) do
 Begin
  Read(f,Wear);
  If Wear.name=ComboBox2.Text then
   Begin
    Par:=wear.name+' ['+IntToStr(wear.param.lvl)+']'+#13+'Раса:'+wear.param.rassa+#13;
     With wear do
      Begin
       With param do
        Begin

Причём перед этим, в другой процедуре уже выполняется такой же цикл и никаких ошибок не выдаёт, да и эту ошибку раньше не выдавало...
Помогите разобраться что это и как с этим бороться. Зарание спасибо:)

Сообщение отредактировано: iFlight - 2.07.2009 10:04

[volvo]

Бррр... Ужас. Скажи, а файл Wear.db, он большой? То есть, ты уверен, что после того, как ты открыл его и просматриваешь (бред, конечно просматривать постоянно весь файл ради одной - единственной записи), но перед тем, как ЕЩЕ РАЗ выбираешь новый элемент в ComboBox2, файл успел просмотреться полностью и закрыться? Если нет, то у тебя второй вызов TForm1.ComboBox2Select не способен будет открыть файл, он уже открыт предыдущим вызовом и доступа к нему нет, пока он не закроется.

P.S. Настоятельно рекомендую перейти сейчас, пока программа не разбухла до ужасных размеров, на хранение данных в БД. Это во-первых, скажется на размере кода (он станет меньше), а во вторых - на удобстве работы с данными.