Не пойму почему выдаёт ошибку. StringGrid

[Artsiom]

Доброго времени суток.
Чего-то не могу понять, почему выдает ошибку I/O error 6..
Обрабатываемый файл содержит только целочисленные циферки, все строго построчно. Код вроде должен работать...

procedure TForm1.Button1Click(Sender: TObject);
 var f : file of Integer;
     buf : integer; // буфер
begin
AssignFile(f,'statistic.txt');
Reset(f); // открываю для чтения
if IOResult <>0 then  //проверим?
 begin
  MessageDlg('Ошибка доступа к файлу ' + 'statistic.txt',mtError, [mbOk] ,0);
  exit;
 end;
// чтение из файла
while not EOF(f) do
 begin
  Readln(buf); // прочитать строку из файла
  StringGrid1.RowCount := StringGrid1.RowCount+1;  //увеличить на 1 строку
  StringGrid1.Cells[0,StringGrid1.RowCount-1] := FloatToStr(buf); //записать в ячейку буфер
 end;
 CloseFile(f) ; // закрыть файл
end;

[Streletz]

StringGrid1.Cells[0,StringGrid1.RowCount-1] := FloatToStr(buf);

Уже не правильно. Текст в ячейке имеет тип String, а переменная buf Integer. Поэтому FloatToStr, не отработает, по крайней мере нормально. StrToInt.
В какой именно строчке процедуры возникает ошибка? Что говорит отладчик?

[Аватар]

var f : Textfile;
...
  Readln(f,buf); // прочитать строку из файла

А FloatToStr или StrToInt в данном случае не принципиально

[Serge_Bliznykov]

Сообщение от Аватар

var f : Textfile;
...

А FloatToStr или StrToInt в данном случае не принципиально

ну, шансов немного, но вдруг у него не текстовый файл, а действительно бинарный типизированный файл?!
Тогда TextFile не будет работать!



Artsiom, Вы понимаете, что означает запись:
var f : file of Integer;
Как Вы заполняете исходный файл?! И Вы отдаёте себе отчёт в том, что это бинарный файл, его нельзя открыть в текстовом редакторе (блокноте, например)?!

[Аватар]

Обрабатываемый файл содержит только целочисленные циферки, все строго построчно

Вот и решил что у ТС текстовый файл

[Serge_Bliznykov]

Сообщение от Аватар

Вот и решил что у ТС текстовый файл

Ага. Убедительно.
Тогда я согласен с вашим советом(кодом).

[Artsiom]

Сообщение от Serge_Bliznykov

Artsiom, Вы понимаете, что означает запись:
var f : file of Integer;

Упс, теперь понял. Думал, что укажу тип данных файла... кто ж знал
А заполняю через блокнот.

Сообщение от Serge_Bliznykov

Как Вы заполняете исходный файл?! И Вы отдаёте себе отчёт в том, что это бинарный файл, его нельзя открыть в текстовом редакторе (блокноте, например)?!

Ну... можно HEX-редактором

[Serge_Bliznykov]

Сообщение от Artsiom

А заполняю через блокнот.

Значит, TextFile Вам будет в самый раз.

Проблема решена? Тему можно закрывать?

[Artsiom]

Да, вполне, спасибо(!), хотя конечно ещё есть вопросы очень важные, но это уже наверно нужно создавать новую.