Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   [Delphi] вопрос на засыпку. (https://forum.antichat.xyz/showthread.php?t=173465)

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

][yZ 25.01.2010 00:07
"онлайн друзей и оставшихся друзей, исключая онлайн друзей"
поясни, как я понял, тебе нужно скопировать все из 1-го списка в 3-й?

RedFern.89 25.01.2010 00:19
надо из общего списка исключить онлайн друзей, и добавить в 3й

][yZ 25.01.2010 00:23
ну и в чем проблема? можно банально за o(n*m) проходиться по первому списку и если элемент есть во втором, то не добавлять его

RedFern.89 25.01.2010 00:31
на этот код у меня ругается мол 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;

desTiny 25.01.2010 00:40
хоть это и п*ец, но твой код можно переделать вот так
Код:
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;


Время: 16:05