[Delphi] вопрос на засыпку.

у меня есть 3 переменные типа TStringList в одной хранятся все мои друзья ВКонтакте, в другой все мои он-лайн друзья ВКонтакте. Вопрос! Как записать в 3ю переменную онлайн друзей и оставшихся друзей, исключая онлайн друзей? спасибо.

 

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

 

надо из общего списка исключить онлайн друзей, и добавить в 3й

 

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

 

на этот код у меня ругается мол List Index Out Bounds

Code:

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;

 

хоть это и п*ец, но твой код можно переделать вот так

Code:

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;