Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
12.03.2010, 16:29
|
|
Новичок
Регистрация: 07.11.2006
Сообщений: 20
Провел на форуме:
299123
Репутация:
3
|
|
Пытаюсь в другой программе в текстовое окно вставить текст, ищу нужное окно, в нем через GetClassName получаю название класса, так как едитов много то GetClassName дает одинаковый результат для всех элементов, как их перебрать???? Если смотрю с помощью Autoit Info Tool, он находит: >>>> Control <<<< Class:TEditControl Instance:1.
Class:TEditControl - получает через GetClassName, а как получает Instance:1 - хз.
|
|
|
12.03.2010, 17:12
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184
Репутация:
47
|
|
Сообщение от MaTpOc
Помогите написать программу подсчета суммы элементов стоящих на четных местах в массиве из 30 чисел. Обеспечить ввод чисел:
а) с клавиатуры
б)датчиком случайных чисел
Вывести значения массива и сумму элементов.
под а)
Код:
{$APPTYPE CONSOLE}
const
size = 30;
var
a: array [1..size] of integer;
i: byte;
sum: integer;
begin
sum:=0;
for i:=1 to size do
begin
readln(a[i]);
if i mod 2 = 0 then inc(sum, a[i]);
end;
for i:=1 to size do write(a[i],' ');
writeln;
writeln(sum);
readln;
end.
И под b)
Код:
{$APPTYPE CONSOLE}
const
size = 30;
ch = 500;
var
a: array [1..size] of integer;
i: byte;
sum: integer;
begin
sum:=0;
randomize;
for i:=1 to size do
begin
a[i]:=random(ch);
if i mod 2 = 0 then inc(sum, a[i]);
end;
for i:=1 to size do write(a[i],' ');
writeln;
writeln(sum);
readln;
end.
Последний раз редактировалось Soherox; 12.03.2010 в 17:20..
|
|
|
|
12.03.2010, 22:06
|
|
Познающий
Регистрация: 28.01.2009
Сообщений: 90
Провел на форуме:
432613
Репутация:
80
|
|
Как в TICQClient реализовать, что уин изпользовал Webaware(чтобы уины были видны в поиске, зелененьким цветом)
применяю функцию
SetAuthorization(false, true);
второй флаг из этой функции должен включать данную фичу, но в поиске уин (серенький) - inv
Посоветуйте что можно сделать?
Последний раз редактировалось flacs; 12.03.2010 в 22:09..
|
|
|
|
12.03.2010, 22:24
|
|
Участник форума
Регистрация: 25.11.2009
Сообщений: 201
Провел на форуме:
866555
Репутация:
226
|
|
Сообщение от xaldey
Пытаюсь в другой программе в текстовое окно вставить текст, ищу нужное окно, в нем через GetClassName получаю название класса, так как едитов много то GetClassName дает одинаковый результат для всех элементов, как их перебрать???? Если смотрю с помощью Autoit Info Tool, он находит: >>>> Control <<<< Class:TEditControl Instance:1.
Class:TEditControl - получает через GetClassName, а как получает Instance:1 - хз.
Проект в котором реализована работа в winapi(там ты найдёшь что тебе нужно, и, я думаю, узнаешь много интересного)
http://depositfiles.com/files/i9dhpjgnz
|
|
|
|
13.03.2010, 15:02
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
Провел на форуме:
299447
Репутация:
5
|
|
Народ хелп ми плиз.. Сижу чёто тупикую
Вот вопрос:
Я загрузил текст в лист, ну не совсем текст а хтмл мне нужен только кусок этой страницы.
Кусок может быть разной длины!
Как удалить всё до куска и после него ? Заранее спасибо)
|
|
|
|
13.03.2010, 15:13
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
Провел на форуме:
724939
Репутация:
108
|
|
Сообщение от iGlass
Народ хелп ми плиз.. Сижу чёто тупикую
Вот вопрос:
Я загрузил текст в лист, ну не совсем текст а хтмл мне нужен только кусок этой страницы.
Кусок может быть разной длины!
Как удалить всё до куска и после него ? Заранее спасибо)
Что такое лист? Думаю тебе нужно смотреть в сторону ф-ции Delete(строка, с какого символа, по какой символ)
|
|
|
|
13.03.2010, 16:52
|
|
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
Провел на форуме:
592199
Репутация:
21
|
|
Подскажите на примере как создать свое событие в Delphi.
Допустим я хочу создать событие onDenjf
И что бы он происходило по нажатию на button
procedure Tform1.buttonclick(sender  bject);
begin
//.....
//как я понял тут надо написать
If Assigned(FOndenjf) then FOondenjf(self);
end;
обработчик
procedure trorm1.ondenjf(sender bject);
begin
///тут че нибуть делаем
end;
Что нужно добавить еще? |
|
|
|
13.03.2010, 17:38
|
|
Участник форума
Регистрация: 25.11.2009
Сообщений: 201
Провел на форуме:
866555
Репутация:
226
|
|
Сообщение от denjf
Подскажите на примере как создать свое событие в Delphi.
Допустим я хочу создать событие onDenjf
И что бы он происходило по нажатию на button
procedure Tform1.buttonclick(sender bject);
begin
//.....
//как я понял тут надо написать
If Assigned(FOndenjf) then FOondenjf(self);
end;
обработчик
procedure trorm1.ondenjf(sender bject);
begin
///тут че нибуть делаем
end;
Что нужно добавить еще? Если не ошибаюсь, то так:
Button1.Onclick:=ondenjf;
|
|
|
|
13.03.2010, 19:38
|
|
Участник форума
Регистрация: 20.12.2008
Сообщений: 277
Провел на форуме:
828081
Репутация:
84
|
|
Надо соответсвенно объявить процедурный тип и свойство-событие:
TMyClass = class
...........
private
FOnDenjf : TNotifyEvent;
............
public
property OnDenjf: TNotifyEvent read FOnDenjf write FOnDenjf;
end;
И после этого ты можешь присваивать этому свойству значения процедур.
Вместо TNotifyEvent ты можешь объявить свой процедурный тип:
type
TMyEvent = procedure of object({тут перечисление передаваемых аргументов по твоему усмотению});
end;
|
|
|
|
13.03.2010, 20:17
|
|
Участник форума
Регистрация: 25.11.2009
Сообщений: 201
Провел на форуме:
866555
Репутация:
226
|
|
Сообщение от GhostOnline
Надо соответсвенно объявить процедурный тип и свойство-событие:
TMyClass = class
...........
private
FOnDenjf : TNotifyEvent;
............
public
property OnDenjf: TNotifyEvent read FOnDenjf write FOnDenjf;
end;
И после этого ты можешь присваивать этому свойству значения процедур.
Вместо TNotifyEvent ты можешь объявить свой процедурный тип:
type
TMyEvent = procedure of object({тут перечисление передаваемых аргументов по твоему усмотению});
end;
а не проще в public объявить свою процедуру с параметрами как в процедуре, которая должна вызвать это событие, и написать так как я?
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
