![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
![]()  | 
	
	
| 
		 | 
	Опции темы | Поиск в этой теме | Опции просмотра | 
| 
		 
			 
			#16  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Цитата: 
	
  | 
| 
		 
			 
			#17  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Так? 
		
	
		
		
		
		
		
	
		
		
	
	
	Код: 
	var n: Integer; begin Str := '1234567890,3480213734'; // твое число в текстровой форме n := 10; // число знаков выводимых в эдит Edit1.Text := Copy(Str, 1, n); Label1.Caption := Copy(Str, n+1, Length(Str));  | 
| 
		 
			 
			#18  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 вы меня опять не поняли (( у меня Edit ограничен на 10 знаков, если в Edit записан один знак(любой буква или цифра), то в Label написано "осталось 9 знаков", если 2 знаков то Label написано "осталось 8 знаков" и так до конца. 
		
	
		
		
		
		
		
		
			Последний раз редактировалось жекаизжека, 18.01.2009 в 23:22.  | 
| 
		 
			 
			#19  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 А как сделать чтобы после запятой пользователь мог ввести не более 2-х чисел? 
		
	
		
		
		
		
		
	
		
		
	
	
	 |