ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
17.04.2008, 13:45
|
|
Познавший АНТИЧАТ
Регистрация: 29.04.2007
Сообщений: 1,189
Провел на форуме:
5749763
Репутация:
1680
|
|
Как на делфи сделать проверку, если в поле edit ровно 15 или ровно 18 символов, тогда выполнялась команда
???
|
|
|
17.04.2008, 13:52
|
|
Постоянный
Регистрация: 29.04.2007
Сообщений: 496
Провел на форуме:
2715445
Репутация:
588
|
|
n:=length(edit1.text)
If (n = 15) or (n = 18) then ...
|
|
|
|
17.04.2008, 15:57
|
|
Познающий
Регистрация: 15.02.2008
Сообщений: 98
Провел на форуме:
183980
Репутация:
50
|
|
var
n: integer;
n:=length(edit1.text)
If (n = 15) or (n = 18) then ...
PS. Мало ли  |
|
|
|
17.04.2008, 19:41
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638
Репутация:
1821
|
|
if (length(edit1.text)=15) or (length(edit1.text)=18) then .....
Без лишней переменной
==================
desTiny +
Последний раз редактировалось De-visible; 17.04.2008 в 21:15..
|
|
|
|
17.04.2008, 20:37
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от De-visible
if (length(edit1.text)=15) or (length(edit1.text)=18) then .....
Без лишней переменной
Так дольше работает... (Сорри за стремление к оптимайзу  )
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
19.04.2008, 01:20
|
|
Участник форума
Регистрация: 26.02.2006
Сообщений: 209
Провел на форуме:
2418438
Репутация:
93
|
|
function TClassF1.step:extended;
begin
result:=(b-a)/n;
end;
Какая функция округлить до десятых? (Например: 0,2;1,3) Типа runc().....
|
|
|
|
19.04.2008, 04:49
|
|
Постоянный
Регистрация: 04.11.2007
Сообщений: 331
Провел на форуме:
1724067
Репутация:
806
|
|
Сообщение от ToniKapuchon
Какая функция округлить до десятых? (Например: 0,2;1,3) Типа runc().....
на вскидку, умножь на десять, округли, а потом подели на десять. Это медленно работает, но зато быстро програмируется
|
|
|
|
19.04.2008, 17:30
|
|
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839
Репутация:
1502
|
|
Сообщение от ToniKapuchon
Какая функция округлить до десятых? (Например: 0,2;1,3) Типа runc().....
x := round(x * 10) / 10
__________________
Bedankt euch dafür bei euch selbst.
H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ
|
|
|
|
19.04.2008, 15:52
|
|
Познающий
Регистрация: 04.01.2008
Сообщений: 62
Провел на форуме:
490685
Репутация:
30
|
|
Я только начал изучать Delphi и не могу понять один момент. Допустим, я кидаю на форму кнопку. Создаю для нее обработчик события OnClik. Делфи автоматически создает процедуру. Как при компиляции компилятор узнает, что эта процедура отвечает за событие OnClik? Ведь в коде это "явно" не указывается (точнее, я не нашел).
Пример:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
"Button1Click" - это ведь имя процедуры? Если да, то оно может быть любым. |
|
|
|
19.04.2008, 16:15
|
|
Постоянный
Регистрация: 18.01.2008
Сообщений: 383
Провел на форуме:
9332138
Репутация:
476
|
|
Бутон1 это кнопа а клик это процедура
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
