ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
09.03.2009, 19:36
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Так как обозначить процедуру для элемента массива?
Незнаю может быть я неправильно выражаюсь но мне надо: Вот у обычного TICQclient компонента кинутого на форму, есть эвенты, например OnLogin, тоесть как клиент подключается выполняется некое действие. Например
Код:
procedure TMain.ICQclientLogin(Sender: TObject);
begin
Label1.Caption:='Connected';
end;
А вот как работать с этими эвентами только с массивом компонентов
Код:
Bot:array of TICQClient;
Тоесть это должно быть нечто
Код:
procedure TMain.Bot[i]Login(Sender: TObject)
где i это будет цикл всех компонентов массива например от 0 до 10. Помогите плиз, если можно киньте исходник
Последний раз редактировалось Maxxxtri23; 09.03.2009 в 22:57..
|
|
|
11.03.2009, 21:50
|
|
Познающий
Регистрация: 20.12.2008
Сообщений: 76
Провел на форуме:
432982
Репутация:
6
|
|
Собсно вопрос еще актуален
Сообщение от Maxxxtri23
Так как обозначить процедуру для элемента массива?
Незнаю может быть я неправильно выражаюсь но мне надо: Вот у обычного TICQclient компонента кинутого на форму, есть эвенты, например OnLogin, тоесть как клиент подключается выполняется некое действие. Например
Код:
procedure TMain.ICQclientLogin(Sender: TObject);
begin
Label1.Caption:='Connected';
end;
А вот как работать с этими эвентами только с массивом компонентов
Код:
Bot:array of TICQClient;
Тоесть это должно быть нечто
Код:
procedure TMain.Bot[i]Login(Sender: TObject)
где i это будет цикл всех компонентов массива например от 0 до 10. Помогите плиз, если можно киньте исходник |
|
|
|
10.03.2009, 22:48
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
народ немного глупый вопрос но всетаки прошу ответить с полной серьёзностью..
в чем различие м/у типом ^Byte и просто Byte для чего служит ^
да и еще почему его ставят по разному например если ставят рядом с типом то получается ^Byte, а если ставят рядом с переменной то ставят после pt^
Последний раз редактировалось KIR@PRO; 10.03.2009 в 22:52..
|
|
|
|
11.03.2009, 00:01
|
|
Новичок
Регистрация: 08.09.2008
Сообщений: 2
Провел на форуме:
34862
Репутация:
0
|
|
Ну так сказать это некий аналог * в с++...
|
|
|
|
11.03.2009, 00:30
|
|
Познающий
Регистрация: 22.07.2008
Сообщений: 62
Провел на форуме:
304390
Репутация:
172
|
|
Сообщение от svyd
Ну так сказать это некий аналог * в с++...
 объяснил...
|
|
|
|
11.03.2009, 01:47
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
я не просил аналоги называть я же попросил объяснить.... а твой ответ к сожелению даже подобием объяснения не является.....
или ты знаеш что в С++ означает * ? и желаеш объяснить? я вижу ты хорошо С++ знаеш 
вопрос более не актуален ответ смотри ниже
Последний раз редактировалось KIR@PRO; 11.03.2009 в 13:14..
|
|
|
|
11.03.2009, 02:17
|
|
Познающий
Регистрация: 22.07.2008
Сообщений: 62
Провел на форуме:
304390
Репутация:
172
|
|
Я фигею с вас народ, гугл нахрен отменили, что ли?....
|
|
|
|
11.03.2009, 02:23
|
|
Постоянный
Регистрация: 20.06.2008
Сообщений: 323
Провел на форуме:
1240829
Репутация:
165
|
|
Указательный тип! Pointer.
Объявление переменной как указателя на тип Integer - P: ^Integer;
P^ := 10; - присвоение значения указателю
http://www.rsdn.ru/article/Delphi/Delphi_7_02.xml - 2.15.1. Понятие указателя
Последний раз редактировалось cremator (c); 11.03.2009 в 02:30..
|
|
|
|
11.03.2009, 13:12
|
|
Постоянный
Регистрация: 26.12.2007
Сообщений: 353
Провел на форуме:
905389
Репутация:
332
|
|
Сообщение от cremator (c)
Указательный тип! Pointer.
Объявление переменной как указателя на тип Integer - P: ^Integer;
P^ := 10; - присвоение значения указателю
http://www.rsdn.ru/article/Delphi/Delphi_7_02.xml - 2.15.1. Понятие указателя
спс за ссылку но то что ты написал понять трудно...
мог бы просто скопировать из статьи:
P^ := 10; // Здесь умышленно опущено приведение типа
Символ ^, записанный после имени указателя, называется оператором доступа по адресу. В данном примере переменной, расположенной по адресу, хранящемуся в P, присваивается значение 10. Так как в переменную P мы предварительно занесли адрес N, данное присваивание приводит к такому же результату, что иN := 10;
кратко смысл в том что мы в переменную (к примеру N1) заносим адрес другой переменной ( N1:=@N2) теперь в N1 хранится адрес, в памяти, переменной N2 и мы можем изменять N2 исмользуя N1 (N1^:=15 (при условии что N2 числового типа)) вот... =)
the End.
|
|
|
|
11.03.2009, 16:35
|
|
Познающий
Регистрация: 03.01.2009
Сообщений: 33
Провел на форуме:
1536015
Репутация:
52
|
|
Pascal
Помогите пожалуйста решить задачку двумя способами, через цикл repeat until
и через for
--------------------------------------------------
Дано a=2.8 , b=-0.3 , c=4
Вычислить и напечатать значение функции:
y=(a+b*x)/sqrt(x*x+4) ,если x<1.4
y=a*(x*x)+b*x+c ,если x=1.4
y=a/x+exp(a*b) ,ecли x>1.4
где x изменяется в интервале от 0.8 до 2.8 с шагом 0.2
--------------------------------------------------
Через while do смог написать, а через repeat until
и через for незнаю 
Код:
Program z1;
uses crt;
var a,b,c,x,y:real;
begin
a:=2.8;
b:=-0.3;
c:=4;
x:=0.8;
while x<2.8 do
begin
if x<1.4 then
y:=(a+b*x)/sqrt(x*x+4)
else
if x=1.4 then
y:=a*(x*x)+b*x+c
else
y:=a/x+exp(a*b);
writeln ('x=',x:8:2,' y=',y:8:2);
x:=x+0.2;
end;
readkey;
end.
Последний раз редактировалось LASS0; 11.03.2009 в 16:38..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид