Цитата
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 -