Вопрос по поводу записей (Record)

[bill]

Вот, собственно рабочий вариант. Я понял почему не работало. Я там просто забыл добавить процедуру добавления в файл-
append(f)(var f:textfile). Просто иногда программа добавляет в файл информацию и без использоания этой функции, а иногда нет.

[mutabor]

Так как после выполнения OpenDialog меняет текущую директорию, последующую запись файлов в директорию с exe файлом программы надо начинать так:

assignfile(f,ExtractFilePath(Applic ation.EXEName)+'myfile.txt');

[werser]

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

Так как после выполнения OpenDialog меняет текущую директорию, последующую запись файлов в директорию с exe файлом программы надо начинать так:

assignfile(f,ExtractFilePath(Applic ation.EXEName)+'myfile.txt');

Да именно так!!! используем ExtractFilePath

[Alter]

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

так, все прояснилось. насколько понял то должна загружаться последняя картинка.
поэтому файл надо открыть для чтения, переписав старый файл -rewrite(f). Я обычно всегда сначала пользуюсь assignfie а потом rewrite.
а потом пишем writeln(f,a.all).
f:textfile, a.all- ваш record который добавляется в новый файл. Должно быть примерно так.

У вас ошибка, кто для типизированных файлов использует ReadLn и WriteLn.
Для типизированных используют: Read, Write !!!
ВОТ И НЕ РАБОТАЕТ.