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

[RedFern.89]

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

[][yZ]

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

[RedFern.89]

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

[][yZ]

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

[RedFern.89]

на этот код у меня ругается мол 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]

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