ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #1331  
Старый 17.04.2008, 19:41
De-visible
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме:
4037638

Репутация: 1821


Отправить сообщение для De-visible с помощью ICQ
По умолчанию

if (length(edit1.text)=15) or (length(edit1.text)=18) then .....
Без лишней переменной
==================
desTiny +

Последний раз редактировалось De-visible; 17.04.2008 в 21:15..
 
Ответить с цитированием

  #1332  
Старый 17.04.2008, 20:37
desTiny
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
 
Ответить с цитированием

  #1333  
Старый 19.04.2008, 01:20
ToniKapuchon
Участник форума
Регистрация: 26.02.2006
Сообщений: 209
Провел на форуме:
2418438

Репутация: 93
По умолчанию

Цитата:
function TClassF1.step:extended;
begin
result:=(b-a)/n;
end;
Какая функция округлить до десятых? (Например: 0,2;1,3) Типа runc().....
 
Ответить с цитированием

  #1334  
Старый 19.04.2008, 04:49
presidentua
Постоянный
Регистрация: 04.11.2007
Сообщений: 331
Провел на форуме:
1724067

Репутация: 806
Отправить сообщение для presidentua с помощью ICQ
По умолчанию

Цитата:
Сообщение от ToniKapuchon  
Какая функция округлить до десятых? (Например: 0,2;1,3) Типа runc().....
на вскидку, умножь на десять, округли, а потом подели на десять. Это медленно работает, но зато быстро програмируется
 
Ответить с цитированием

  #1335  
Старый 19.04.2008, 15:52
Metall
Познающий
Регистрация: 04.01.2008
Сообщений: 62
Провел на форуме:
490685

Репутация: 30
Отправить сообщение для Metall с помощью ICQ
По умолчанию

Я только начал изучать Delphi и не могу понять один момент. Допустим, я кидаю на форму кнопку. Создаю для нее обработчик события OnClik. Делфи автоматически создает процедуру. Как при компиляции компилятор узнает, что эта процедура отвечает за событие OnClik? Ведь в коде это "явно" не указывается (точнее, я не нашел).

Пример:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin

end;
"Button1Click" - это ведь имя процедуры? Если да, то оно может быть любым.
 
Ответить с цитированием

  #1336  
Старый 19.04.2008, 16:15
Ergoproxy
Постоянный
Регистрация: 18.01.2008
Сообщений: 383
Провел на форуме:
9332138

Репутация: 476
Отправить сообщение для Ergoproxy с помощью ICQ
По умолчанию

Бутон1 это кнопа а клик это процедура
 
Ответить с цитированием

  #1337  
Старый 19.04.2008, 16:51
Metall
Познающий
Регистрация: 04.01.2008
Сообщений: 62
Провел на форуме:
490685

Репутация: 30
Отправить сообщение для Metall с помощью ICQ
По умолчанию

А почему они не разделены ничем?
 
Ответить с цитированием

  #1338  
Старый 19.04.2008, 17:07
Dr.KoD
Познающий
Регистрация: 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, там все очень хорошо написано и расписано!!!
 
Ответить с цитированием

  #1339  
Старый 19.04.2008, 17:17
Dr.KoD
Познающий
Регистрация: 01.03.2008
Сообщений: 68
Провел на форуме:
140772

Репутация: 72
По умолчанию

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

  #1340  
Старый 19.04.2008, 17:30
desTiny
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
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/WPAN/WLAN 2564 06.04.2026 23:31
[ *NIX ] Задай вопрос - получи ответ. Xszz *nix 1547 15.06.2010 15:41
[jQuery] - Задай вопрос, получи ответ Isis PHP, PERL, MySQL, JavaScript 62 25.12.2009 03:25
ЕсТь ВоПрос Guma Чаты 4 26.10.2005 21:48



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ