|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
13.06.2017, 09:15
|
#1 |
|
Новичок
Джуниор
Регистрация: 13.06.2017
Сообщений: 5
|
объясните по коду
объясните по коду
if (((Key>='0') and (Key<='9')) or (ord(Key)=VK_BACK) or ((Key=',') and (Sender<>Edit3))) then begin if Key=',' then begin s:=(Sender as TEdit).Text; for i:=1 to length(s) do if (s[i]=',') then begin Application.MessageBox(PChar(inttos tr(i)), ''); Key:=chr(0); break; |
|
|
|
13.06.2017, 09:39
|
#2 |
|
Старожил
Регистрация: 15.02.2010
Сообщений: 15,830
|
что объяснить? вы не знаете условного оператора? или цикла?
|
|
|
|
|
13.06.2017, 09:49
|
#3 | |
|
Новичок
Джуниор
Регистрация: 13.06.2017
Сообщений: 5
|
Цитата:
объясните это мне |
|
|
|
|
|
13.06.2017, 10:19
|
#4 |
|
Старожил
Регистрация: 15.02.2010
Сообщений: 15,830
|
Вы не поверите, но все это читается как английское простое предложение.
Если клавиша 0..9, бекспейс или запятая (кроме поля едит3) то |
|
|
|
|
13.06.2017, 10:40
|
#5 | |
|
Новичок
Джуниор
Регистрация: 13.06.2017
Сообщений: 5
|
Цитата:
|
|
|
|
|
|
13.06.2017, 11:12
|
#6 |
|
Новичок
Джуниор
Регистрация: 13.06.2017
Сообщений: 5
|
закройте тему сайт удалите
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Вопрос по коду | AlexFalse | Помощь студентам | 0 | 12.01.2017 17:48 |
| С++, вопрос по коду | Dima-91 | C++ Builder | 2 | 29.07.2015 21:04 |
| проблема по коду | gr34241as | C# (си шарп) | 0 | 05.04.2012 23:41 |
| Объясните алгоритм по коду игры) | JorJe | Компоненты Delphi | 0 | 29.06.2011 22:18 |
| описание к коду! | vetalij | Общие вопросы C/C++ | 3 | 02.03.2010 01:38 |
