![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | 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);  |