Откуда считываются данные?

[Ольга 89]

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

PS: я не запускал, у меня нет на работа Делфи.

А я пишу на TURBO PASCAL

[Valio]

Тогда рекомендации про C:\1.dat в силе. В программе везде этот путь пиши.
Она не может не работать.

[Ольга 89]

Теперь пишет "Disk read error"

[Valio]

Файл не пустой случайно?

[Ольга 89]

Я обратила внимание что файл становится пустым после запуска программы, значит он его начал находить.
Файл до запуска программы полон а как запускаеш он становится пуст!!!
Что делать?

[Valio]

Нука скинь на 6430@bk.ru весь проект и фаил с записями.

[Ольга 89]

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

Нука скинь на 6430@bk.ru весь проект и фаил с записями.

Сюда не выходит скинуть, могу скинуть на имейл

[Valio]

Круто. Ты в курсе, что типизированый фаил, это не текстовый фал и что он не создаётся блокнотом? Его нужно создать программно.

program mark;
uses crt;
type AutoRec = record
  Marka : string[45];
  Nomer : string[15];
  Vladelec : string[45];
end;

var
   sFind : string;
   OneAuto : AutoRec;
   f : file of AutoRec;
   countA : integer;
   fname: string;

begin

Clrscr;

fname := 'C:\1.txt';

Assign(f, fname);

Reset(f);
  with OneAuto
  do repeat
    write('Marka: ');
    readln(Marka);
    if Marka = '' then break;
    write('Nomer: ');
    readln(Nomer);
    write('Vladelec: ');
    readln(Vladelec);
    write(f, OneAuto);
  until false;
Close(f);

   WriteLn('Vvedite marky avtomobilia:');
   Readln(sFind);
   Assign(f, fname);
   Reset(f);
   countA := 0;
   while Not eof(f) do begin
      Read(f, OneAuto);
      if Pos(sFind, OneAuto.Marka)>0 then begin
         Inc(countA);
         WriteLn('Marka: ',OneAuto.Marka,' Nomer: ',OneAuto.Nomer,' Vladelec: ',OneAuto.Vladelec);
      end;
   end;
   Close(f);
   WriteLn('Vsego naideno avtomobilei danoi marki: ', countA);
   Readln;Readln;

end.

Я добавил в начало кода создание файла. Заполняется вручную.
Фаил должен быть на месте, он открывается и очищается. Поэтому лучше сначало создать фаил с кучкой записей, а потом убрать этот кусок кода, дабы 100 раз не заполнять.

А так всё работает.

[Valio]

Сообщение от Ольга 89

Я обратила внимание что файл становится пустым после запуска программы, значит он его начал находить.
Файл до запуска программы полон а как запускаеш он становится пуст!!!
Что делать?

Что касается этого, то нужно было использовать Reset а не Rewrite:

Из того что прислали мне:

   Assign(f,'C:\1.dat');
   rewrite(f); // Тут нужен Reset
   close(f);

[s-andriano]

Сообщение от Ольга 89

Пробовала ничего не меняется!
Есть же текст программы, кто-то хоть смотрел???
Может у кого-то работает???

Здесь проблема не в тексте программы, а в размещении файлов на Вашем жестком диске.
Как можно посмотреть, если Вы свой диск никому не высылали?