![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте.
У меня есть файл с записями (test.db) допустим в нем 5 записей, как мне в нем отредактировать или удалить допустим 3тью запись, если потребуеться код программы то говорите выложу. Пробывал делать вот так Код:
Var test:TTest; begin AssignFile(F,'tests.db'); Reset(F); read(F, test); Seek(F, j); test.pole := grid1.Cells[1,0]; Seek(F, j); write(F, test); CloseFile(F); |
#2
|
|||
|
|||
![]() Могу предложить работать с потоками, намного больше возможностей появляться. Пример дать не могу, я не работал с ними))
А так будет примерно так выглядеть: size := Размер одной переменной типа record. И потом переход на n*size (+n); +n вроде может понадобится, там символ разделения есть в типизированных файлах (вроде). Не знаю, помог или нет) |
#3
|
|||
|
|||
![]() несовсем
![]() |
#4
|
|||
|
|||
![]() У меня вот так заменяет без проблем :-7
seek(f1,rec_num); s.pole:='New Value'; s.iii:=9999; write(f1,s); closefile(f1); |