Редактирование записей в файле

[Neroaz]

Редактирование записей в типизированном файле
Как это осуществить?
Допустим в файле xxx.dat есть 5 строчек (или FileSize(F)=5)
я выбираю в combobox1.itemindex=1 //элемент с названием: 2
т.е. я выбираю вторую строчку для редактирования.
Потом пишу в edit1.text, edit2.text новые данные и потом эти значения присваем 2 строчке.
Я знаю как это сделать, но может есть проще способ для редактирования?

[Stilet]

FileSize(F)=5

Это не показатель строк а показатель символов.
Как типизирован файл?

[Serge_Bliznykov]

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

Это не показатель строк а показатель символов.

Виталий, если файл реально типизированный, то FileSize(F) вернёт именно количество компонент, из которых состоит данный файл. Т.о., если, как я предполагаю, файл объявлен: var f : file Of MyRecord;
то Filesize(f) даст именно количество записей в файле.

Neroaz, нет, я проще способа не вижу... позиционируетесь на нужную запись, читаете эту запись.
Заносите в поля редактирования, после нажания кнопочки "Сохранить" - из полей редактирования - в поля записи, спозиционироваться и записать компоненту в файл..

[Stilet]

Serge_Bliznykov

Та я не против, но понятие "строка" вообще-то относится к текстовым файлам. Автору бы указать тип файла не мешало. А в типизированном файле есть "Записи", но не факт что именно в виде строк.

[Neroaz]

var f : file Of MyRecord

В точку. Файл состоит в виде записей.
Как я выясняю количество строк в файле? с помощью
FileSize(F)-1 в Showmessage.

[Stilet]

Что ты понимаешь под словом "строка"?

[Neroaz]

строка - набор симболов
в данном случае: список записек. У меня так:
1 строка:
ie.surname:='Иванов'
ie.name:='Иван'
ie.adress:='Московская'
ie.phone:='123456677'

[Serge_Bliznykov]

FileSize(F)-1

а вот минус один в данном случае не нужно делать!

p.s. - так всё? разобрались? проблем нет? всё работает?

[Stilet]

Мда...
Непонятно.
Ты как файл то описал?
В принципе для перемещения по записям существует функция seek. Вот опишешь файл
file of rec
где
rec=record
Surname,Name:string[255]
end;

Тогда и получишь записи. НО НЕ СТРОКИ!

В этом случае соответственно seek(файл,4) должен стать на четвертую запись.

[Neroaz]

Stilet

В этом случае соответственно seek(файл,4) должен стать на четвертую запись.

А это не анологичный способ который предложил Serge_Bliznykov:

Neroaz, нет, я проще способа не вижу... позиционируетесь на нужную запись, читаете эту запись.
Заносите в поля редактирования, после нажания кнопочки "Сохранить" - из полей редактирования - в поля записи, спозиционироваться и записать компоненту в файл..

Вопрос был другой: можно ли редактирование сделать проще, чем тот, который описал в первом своем посте?