ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
24.11.2008, 19:34
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
имхо WebBrowser юзает настройки IE
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
25.11.2008, 01:36
|
|
Новичок
Регистрация: 11.05.2008
Сообщений: 27
Провел на форуме:
78594
Репутация:
0
|
|
Ладно, разобрался немного и понял, что WebBrowser в топку на некоторое время и скачал себе EmbeddedWebBrowser - вот в нём можно делать всё то, что я написал 
Ура - я доволен |
|
|
|
Помогите с TICQCliet ContactList |
25.11.2008, 17:02
|
|
Познающий
Регистрация: 24.07.2008
Сообщений: 47
Провел на форуме:
108397
Репутация:
31
|
|
Помогите с TICQCliet ContactList
Какой процедурой можно сделать, что-бы при подключении, список контактов отображался на ListBox1.
Заранее большое спс
|
|
|
|
25.11.2008, 18:42
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
procedure TMainForm.ICQClient1ServerListRecv(Sender: TObject;
SrvContactList: TList);
var
i: Word;
UserInfo: TUINEntry;
ListItem: TListItem;
begin
if SrvContactList.Count > 0 then
for i := 0 to SrvContactList.Count - 1 do
begin
UserInfo := PUINEntry(SrvContactList.Items[i])^;
if UserInfo.CType = U_VISIBLE_LIST then
ICQClient1.VisibleList.Add(IntToStr(UserInfo.UIN))
else if UserInfo.CType = U_INVISIBLE_LIST then
ICQClient1.InvisibleList.Add(IntToStr(UserInfo.UIN ))
else if UserInfo.CType = U_NORMAL then
begin
if ICQClient1.AddContact(UserInfo.UIN) then
begin
ListItem := ListView1.Items.Add;
ListItem.ImageIndex := ICON_OFFLINE;
ListItem.Caption := IntToStr(UserInfo.UIN);
end;
end;
end;
ICQClient1.DestroyUINList(SrvContactList);
end;
Взято из примера компонента
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
27.11.2008, 12:06
|
|
Новичок
Регистрация: 26.11.2008
Сообщений: 3
Провел на форуме:
1579
Репутация:
0
|
|
люди! подскажите плз алгоритм поиска 2 одинаковых чисел в массиве одномерном. если можно то и код на делфе :-)
Последний раз редактировалось KELA; 27.11.2008 в 12:09..
|
|
|
|
27.11.2008, 14:49
|
|
Постоянный
Регистрация: 01.09.2007
Сообщений: 866
Провел на форуме:
2022674
Репутация:
1224
|
|
Сообщение от KELA
люди! подскажите плз алгоритм поиска 2 одинаковых чисел в массиве одномерном. если можно то и код на делфе :-)
for i:=1 to N do
for j:=1 to i-1 do
if (a[j]=a[i]) then..
|
|
|
|
27.11.2008, 15:49
|
|
Новичок
Регистрация: 26.11.2008
Сообщений: 3
Провел на форуме:
1579
Репутация:
0
|
|
спасиб  может ещё есть способы? ато этот ресурсоёмкий очень |
|
|
|
27.11.2008, 15:59
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме:
3660186
Репутация:
905
|
|
А так?
Код:
program pr0gr4m;
var
a : array [1..10] of integer;
i, j : byte;
begin
for i := 1 to 10 do begin
a [i] := Random (20);
write (a [i], ' ');
end;
writeln;
for i := 1 to 9 do
for j := i + 1 to 10 do
if a [i] = a [j] then
writeln (a [i]);
end.
|
|
|
|
28.11.2008, 08:49
|
|
Новичок
Регистрация: 26.11.2008
Сообщений: 3
Провел на форуме:
1579
Репутация:
0
|
|
Вобщем, чот эти алгоритмы плохо работают с моей задачей (( Уже чёрт знает скока голову над ней ломаю, все сделал, а эту нет...
Люди, плз, помогите написать такое:
составить массив из stringgrid1
выбрать числа, повторяющиеся более одного раза
загнать их в stringgrid2...
спасиб заранее
|
|
|
|
29.11.2008, 15:50
|
|
Участник форума
Регистрация: 10.01.2007
Сообщений: 140
Провел на форуме:
246020
Репутация:
105
|
|
как это перевести на паскаль (написанно на С#)
AdaptersInfo[] aiTemp = new AdaptersInfo[10];
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
