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

[Ольга 89]

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

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

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

А как сделать чтоб данные не исчезали?Это вообще реально?

[Valio]

Разумеется реально. Нужно отследить ошибку попытки открытия и уже тогда принимать решения. Если фаил есть, то запросить не желает ли юзер дополнить фаил новыми записями, если файла нет, то создать.

{$I-} 
Reset(f); // Пытаемся открыть
{$I+}
If IOresult <> 0 Then Rewrite(f); // Если ошибка, то создадим фаил.

Ну а если ошибка не произошла, то стоит спросить юзера не хочет ли он дополнить фаил новыми записями. Тогда достаточно перейти в конец файла функцией Seek и начать заполнение.

[Ольга 89]

Я имела ввиду чтоб один раз заполнить и все

[Valio]

Можно написать две программы. Одна для заполнения, а вторая для чтения.

[Ольга 89]

Каким это образом?

[Valio]

Что каким образом?

Просто взять и программу которую я написал разделить на 2 части.

[Ольга 89]

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

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


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);

Фрагмент программы на создание файла потом этот убирать?

[Valio]

Да, кроме fname := 'C:\1.txt';

[Ольга 89]

Выдало ошибку "Disk read error" после того как я убрала фрагмент

[Hacker19_90]

Да, кроме fname := 'C:\1.txt';

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