![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
| 
		 | 
	Опции темы | Поиск в этой теме | Опции просмотра | 
| 
		 
			 
			#1  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 В процессе работы программы, при нажатии кнопки "Сохранить результаты" (Button2) заполняется таблица: 
		
	
		
		
		
		
		
		
			... var j: Integer=1; ... procedure TForm1.Button2Click(Sender: TObject); begin j:= j+1; ExcelApplication.Cells[j,1].value:= Edit3.Text; ExcelApplication.Cells[j,2].value:= Edit4.Text; ExcelApplication.Cells[j,3].value:= ComboBox1.Text; ExcelApplication.Cells[j,4].value:= Edit1.Text; ExcelApplication.Cells[j,5].value:= Edit2.Text; ExcelApplication.Cells[j,6].value:= FloatToStrF(d,ffGeneral,3,2) + ' ìì'; end; Естественно, при новом открытии программы заполнение таблицы начинается по новой. Как перед закрытием программы организовать запоминание j и начинать заполнение таблицы с новым запуском со старого зачения +1? Последний раз редактировалось cadil, 01.11.2007 в 14:40.  |