Текущий архив: 2008.02.10;
Скачать: CL | DM;

Вниз

Ошибка "I/O error 104"   Найти похожие ветки 

← →
Steep   (2008-01-13 20:52) [0]

эх... снова я...
Project raised exception class EInOutError with message "I/O error 104"

Я читаю файл - числа разделенные ";"
и заношу в StringGrid и массив.

Программа запускается - читает первые десять и вылетает



procedure TForm1.Button1Click(Sender: TObject);
var
 f: TextFile;
 s, stemp: string;
 SArray: array[0..9, 0..59] of real;
 r,c,k: integer;
begin
 if OD.Execute=true then
 begin
   AssignFile(F, OD.FileName);
   Reset(f);
   r := 0;
   //Çäåñü ÷èòàåì âåñü ôàéë
   while not eof(f) do
   begin
     c := 0;
     ReadLn(f, s);
     //Èùåì â ñòðîêå äàííûå
       Showmessage(s + "; new string; r=" + IntToStr(r) + "; c=" + IntToStr(c));
     while s<>"" do
     begin
       k := Pos(";", s); //&#239;&#238;&#231;&#232;&#246;&#232;&#255;
       if k=0 then k := Length(s);
       stemp := Copy( S, 1, k-1 );
         //Showmessage( stemp + "; that copy; r=" + IntToStr(r) + "; c=" + IntToStr(c) );
       //&#199;&#224;&#237;&#238;&#241;&#232;&#236; &#228;&#224;&#237;&#237;&#251;&#229;
       SArray[r,c] := StrToFloat(stemp);
       StringGrid.Rows[r].Strings[c] := stemp;
       //&#243;&#228;&#224;&#235;&#255;&#229;&#236; &#231;&#224;&#237;&#229;&#241;&#229;&#237;&#237;&#238;&#229; &#232;&#231; &#241;&#242;&#240;&#238;&#234;&#232;
       Delete(S, 1, k);
       inc(c);
         //Showmessage( "S = 0" + s );
     end;
     inc(r);
   end;
   //&#199;&#228;&#229;&#241;&#252; &#231;&#224;&#234;&#240;&#251;&#226;&#224;&#229;&#236; &#244;&#224;&#233;&#235;
   CloseFile(f);
 end;
end;



---

← →
Steep   (2008-01-13 20:53) [1]

Блин! чегото я только отправляю вопрос на форум и меня озаряет :)))))

Здесь же нужно в массиве наоборот указать (или заносить :) )
SArray: array[0..59, 0..9] of real;

Всем спасибо!

---

← →
No_Dead ©   (2008-01-13 20:56) [2]

> if OD.Execute=true then

а это что?
я просто не знаю:(

а так все work, если закомментить указанную

---

← →
Dmitry S ©   (2008-01-13 20:59) [3]

OD:TOpenDialog

---

← →
No_Dead ©   (2008-01-13 21:03) [4]

> [3] Dmitry S ©   (13.01.08 20:59)

так принято сокращать? хм, не знал и в правду

---

← →
Steep   (2008-01-13 21:13) [5]

> No_Dead ©  

может и не принято - но мне так нравится :)
если он один - то я так сокращаю.....

---

← →
Amoeba ©   (2008-01-14 03:13) [6]

И в чем господа, собственно, была проблема то?

---

← →
KilkennyCat ©   (2008-01-14 04:54) [7]

> Steep   (13.01.08 21:13) [5]
>
>
> > No_Dead ©  
>
> может и не принято - но мне так нравится :)


может, тогда и так понравится, а?

if OD.Execute then

---

← →
Смирнов   (2008-01-14 08:56) [8]

> может, тогда и так понравится, а?
>
> if OD.Execute then


еще вариант
if OD.Execute <> false then

---

← →
KilkennyCat ©   (2008-01-14 09:25) [9]

if (not OD.execute) = false then - это еще круче

---

← →
Смирнов   (2008-01-14 10:06) [10]

if (not OD.execute) = (2 * 2 <> 4) then

---

Страницы: 1 вся ветка

Текущий архив: 2008.02.10;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.024 c