|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
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,708
|
что объяснить? вы не знаете условного оператора? или цикла?
|
13.06.2017, 09:49 | #3 |
Новичок
Джуниор
Регистрация: 13.06.2017
Сообщений: 5
|
|
13.06.2017, 10:19 | #4 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,708
|
Вы не поверите, но все это читается как английское простое предложение.
Если клавиша 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 |