Есть функция
vk.groups_leave(edit1.text);
И поидее vk.groups_leave(gid); Gid несет функцию ид группы.
Edit1=ввод группы
Как выйти из всех групп которые есть?и как добавить исключения?
Код:
procedure TForm3.Button2Click(Sender: TObject);
var
i: Integer;
begin
for i := 1 to 100 do
vk.groups_leave(IntToStr(i));
end;
Так не получается...