Считывание с файла по 1-му символу.

[Karimka]

Уважаемые форумчане! Не мог бы кто-нибудь из вас подсказать, как можно считывать с файла по 1-му символу? Это необходимо мне для заполнения массива. Вот примерно так:

Код:

Пока (i не равен концу файла) делать
Массив[i]:=Read(по одному байту с начала файла);
i:=i+1;

Функция конца файла :

Код:

procedure gotoeof (var f:file);
begin
seek (f, 0);
seek (f, filesize(f));
end;

p.s.Функция взята с h**p://delphiworld.nar*d.ru.

[Basurman]

Варианты для текстового файла:
While not EOF do begin end; - защитит от попытки чтения из файла нулевой длины
Repeat Until EOF;

[x77]

Read - это не функция, это процедура. т.е.

Код:

var  
  m: array of char;
begin
  ..
  Read (f, m [i]);
  ..
end;

[Karimka]

ммм...Пробовал вариант x77 , но это не то(((Например : дан текстовый файл содержащий цифры 458.Необходимо все три цифры загнать по одному в массив.Тоесть,мы должны получить:m

• = 4,m [1] = 5,m [2] = 8.

А в вашем варианте он загоняет все три цифры в один индекс.Я вот думаю считывать с файла по одному символу и загонять каждый в индекс.В си есть возможность считывать с определённой длинной , но в делфи я такого ещё не встречал.

[x77]

Karimka, то, как будет считываться файл, определяется типом файла.

гадать никто не будет, приводите исходники, в них есть ошибка. логическая ошибка.

[Basurman]

Использовать нетипизированный файл и чтение BlockRead

[x77]

Basurman, да обманывают нас не может 458 считаться в m , где m: array of char.