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

[Ольга 89]

Я оставила fname := 'C:\1.txt'; убрала ту часть что я выделяла (оставшуюся). Выдало ошибку "Disk read error".
У меня операционка ХР.SP3

[Valio]

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

да не прокатит такой путь на 7
под XP может быть!

Почему не прокатит? Всё должно работать везде.

Я оставила fname := 'C:\1.txt'; убрала ту часть что я выделяла (оставшуюся). Выдало ошибку "Disk read error".
У меня операционка ХР.SP3

Потому что фаил кривой, пустой или левый.
Раздели мою прогу на две программы. Одна будет заниматься только созданием файла, а другая только его чтением. Два разных exe.

[Hacker19_90]

Почему не прокатит? Всё должно работать везде.

дак! 7 запрещает же запись в корень диска системного!
или я чё путаю?

[Valio]

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

дак! 7 запрещает же запись в корень диска системного!
или я чё путаю?

7 не юзал, но чтото в первый раз слышу. Под админом должно всё быть разрешено.

[Ольга 89]

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

Потому что фаил кривой, пустой или левый.
Раздели мою прогу на две программы. Одна будет заниматься только созданием файла, а другая только его чтением. Два разных exe.

Но программа ведь теперь создает файл сама, как он может быть кривой или левый???

[Valio]

Скинь на мыло что ты насоздавала.

[Ольга 89]

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

Скинь на мыло что ты насоздавала.

На тот что ты давал утром?

[Valio]

Имено на него.

[Valio]

Незнаю что может ещё неработать, вот исходник. Всё работает.

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

fname := 'D:\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);
}
// Вывод всего файла
Reset(f);
While Not eof(f) Do Begin
  Read(f, OneAuto);
  WriteLn('Marka: ',OneAuto.Marka,' Nomer: ',OneAuto.Nomer,' Vladelec: ',OneAuto.Vladelec);
End;
Close(f);
Writeln;

// Поиск
WriteLn('Vvedite marky avtomobilia:');
Readln(sFind);
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;
WriteLn('Vsego naideno avtomobilei danoi marki: ', countA);
Readln;

// End
End.

[Ольга 89]

Все равно ошибка "Disk read error".
А у тебя заработало?
Запустил программу создал файл, убрал выделенный кусок.
Запустил ввел авто, и программа выдала результат?