извеняюсь за ламерство ..но я никак не могу догнать что у меня нетак в программе..программа считывает из файла все подряд символы.. и собственно должна тормозиться после того как обнаружит EOF но почему то программа считывает только 1/10 часть файла и останавливаеться.. никаких ошибок вроде не выдает.. я узнал какой символ был последним..ето стрелочка показывающая направо.. и код ASCII ее почему то 132 хотя по таблице там совсем другой символ .. пытался посмотреть ето место в файле но ни стрелку , ни тот символ какой должен быть под кодом 132 тоже не нашел..подскажите пожалуйста.. :molitva:

что значит долден быть последний символ?
код в студию.

To: abobo
программу и файл, из которого читаешь, присоедини. Ты думаешь, мы телепаты?

я извеняюсь я немного ошибся высвечиваеться код = 135 по таблице получаеться что ето буква З

мы ждем твоей программы.
пока слова слова и слова ни о чем. последний символ может быть любым

файл я сюда не смогу присоеденить.. он сильно большой.. программу попробую.. я еще не разобрался как тут присоединять..

uses dos,crt;
var c,c2,c3,x,x1,x2,xf,yf,xn,y,y1,y2,yn:integer;
    symbol:char;
    ch:integer;
    file_name:string;
    a:file of char;

procedure openfile(file_name:string);
begin
  assign(a,file_name);
  reset(a);
end;

procedure reading;
begin
  xf:=0;
  yf:=0;
  repeat
  gotoxy(xf,yf);
  if xf = 81 then
  begin
    yf:=yf+1;
    xf:=0;
  end
  else
  begin
    read(a,symbol);
    xf:=xf+1;
  end;
  until EOF;
end;

begin
  x:=0;
  y:=0;
  openfile('black.mp3');
  reading;
  close(a);
  textcolor(15);
  writeln(ch,' : ',symbol);
  write(xf,' : ');
  write(yf );
  readln;
end.

Наверное, так:

repeat
  ... 
until EOF(a); { <-- "(a)" забыл?}

нет .. забыл.. может еще что то..?прога начинает но до конца файла не доходит..

Ты поставь то, что я написал, и тогда программа прочтет весь файл от начала до конца...

:thanks: блин точно.. благодарствую..я над етой прогой уже неделю бьюсь.. никак не мог в толк взять чего она не работает..спасибо..

А как вообще программа работала??? Разве можно вызывать EOF без параметра? И что она в этом случае будет возвращать?

Хех, Atos, хороший вопрос ... Оказывается без параметров можно, в FPC и BP7 возвращает FALSE :yes:

Внимательно читаем:

Еще вопросы?