ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi] вопрос на засыпку.
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

[Delphi] вопрос на засыпку.
  #1  
Старый 24.01.2010, 23:54
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264

Репутация: 69
Отправить сообщение для RedFern.89 с помощью ICQ
Question [Delphi] вопрос на засыпку.
у меня есть 3 переменные типа TStringList в одной хранятся все мои друзья ВКонтакте, в другой все мои он-лайн друзья ВКонтакте. Вопрос! Как записать в 3ю переменную онлайн друзей и оставшихся друзей, исключая онлайн друзей? спасибо.
 
Ответить с цитированием

  #2  
Старый 25.01.2010, 00:07
][yZ
Познающий
Регистрация: 03.03.2009
Сообщений: 62
Провел на форуме:
1776253

Репутация: 106
По умолчанию
"онлайн друзей и оставшихся друзей, исключая онлайн друзей"
поясни, как я понял, тебе нужно скопировать все из 1-го списка в 3-й?
 
Ответить с цитированием

  #3  
Старый 25.01.2010, 00:19
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264

Репутация: 69
Отправить сообщение для RedFern.89 с помощью ICQ
Wink
надо из общего списка исключить онлайн друзей, и добавить в 3й
 
Ответить с цитированием

  #4  
Старый 25.01.2010, 00:23
][yZ
Познающий
Регистрация: 03.03.2009
Сообщений: 62
Провел на форуме:
1776253

Репутация: 106
По умолчанию
ну и в чем проблема? можно банально за o(n*m) проходиться по первому списку и если элемент есть во втором, то не добавлять его
 
Ответить с цитированием

  #5  
Старый 25.01.2010, 00:31
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
Провел на форуме:
500264

Репутация: 69
Отправить сообщение для RedFern.89 с помощью ICQ
Angry
на этот код у меня ругается мол List Index Out Bounds

Код:
var i,j : integer;
....

For I := 0 To FrList.Count -1 do
begin
  For j := 0 To OnLineFriend.Count -1 Do
  begin
     If FrList[i] = OnLineFriend[j] Then FrList.Delete(i);
  end;
end;
 
Ответить с цитированием

  #6  
Старый 25.01.2010, 00:40
desTiny
Reservists Of Antichat - Level 6
Регистрация: 04.02.2007
Сообщений: 1,152
Провел на форуме:
3008839

Репутация: 1502


По умолчанию
хоть это и п*ец, но твой код можно переделать вот так
Код:
For I := FrList.Count -1 downto 0  do
begin
  For j := 0 To OnLineFriend.Count -1 Do
  begin
     If FrList[i] = OnLineFriend[j] Then FrList.Delete(i);
  end;
end;
__________________
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
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с RaveReport в Delphi (вопрос на засыпку) mr. ZetRikS С/С++, C#, Delphi, .NET, Asm 1 21.11.2009 21:07
Сетевой этикет (Перед тем, как задать вопрос хакеру) satana-fu Статьи 7 21.10.2009 07:40
ВКонтакте "счастливый фермер" ЖенькО Социальные сети 309 22.07.2009 11:35
[Delphi]. Вопрос по потокам. f0rward С/С++, C#, Delphi, .NET, Asm 2 24.05.2009 12:17
Вопрос на засыпку. D=P=CH= MOD= Болталка 7 02.12.2006 20:30



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


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




ANTICHAT.XYZ