Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|

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, 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 это кнопа а клик это процедура
|
|
|

19.04.2008, 16:51
|
|
Познающий
Регистрация: 04.01.2008
Сообщений: 62
Провел на форуме: 490685
Репутация:
30
|
|
А почему они не разделены ничем?
|
|
|

19.04.2008, 17:07
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме: 140772
Репутация:
72
|
|
TForm1.Button1Click(Sender: TObject);
Вот это означает, что данная кнопка находится на форме1 и принадлежит этой форме,
а чуть выше есть вот такая штука(типы), в которой описываются компоненты и события:
//-----------------------------------------------------
type
Button1: TButton;
//чуть ниже событие нашей кнопки:
procedure Button1Click(Sender: TObject);
//------------------------------------------------------
Это и означает, Button1 это именно наша кнопка и ни какая другая.
Эта процедура(TForm1.Button1Click) называется СОБЫТИЕ на нажатие кнопки Button1.
Если бы было просто:
//------------------------------------------
procedure Name;
begin
//выполняем какие либо действия
end;
//------------------------------------------
то эта процедура не принадлежала бы к данной форме или кнопке, но могла бы относится к любоиу компоненту и процедуре данной программы и изменять их свойства, или выполнять какую либо вспомогательную функцию, вообщем об этом можно долго писать, скачай лучше книгу Фленова Библия Delphi, там все очень хорошо написано и расписано!!!
|
|
|

19.04.2008, 17:17
|
|
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме: 140772
Репутация:
72
|
|
Сообщение от Metall
А почему они не разделены ничем?
что еще не разделено?
Дело в том, что все эти события(процедуры) каждого элемента описаны(как что и к чему относится) в VCL, т.е. если на WinAPI ты должен сам позаботиться о том чтобы создать форму, разместить на ней кнопки(и что эти кнопки должны находится именно в этом месте и эта процедура должна совершаться по нажатию на кнопку), и т.д., то Delphi упрощает все это безобразие, т.е. уже многое зделано до тебя и ты уже не заморачиваешся над тем вопросом как тебе разместить кнопки(не видя их  ), подобрать размер самой формы, потыкал мышкой туда сюда и все красиво и гланое быстро!!!
|
|
|

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
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|