[20:34:45] <coopht> Привет
[20:34:46] <coopht> Есть вопрос
[20:36:13] <coopht> Вот у меня есть два вектора и два курсора. Можно ли как то узнать какому из векторов принадлежит курсор?

 procedure Test (A : in out Vector; B : in Vector)
  is
     A_C   : Cursor;
     B_C   : Cursor;

  begin
     if A.Length > B.Length then
        A_C := A.First;
        B_C := B.First;
     else
        A_C := B.First;
        B_C := A.First;
     end if;
     while (A_C /= No_Element) loop
        decla  procedure Sum (A : in out Vector; B : in Vector)
  is
     Add : My_Integer := 0;
     A_C   : Cursor;
     B_C   : Cursor;

  begin
     Put ("["& ToString (A) & "+" & ToString (B) & " = ");
     if A.Length > B.Length then
        A_C := A.First;
        B_C := B.First;
     else
        A_C := B.First;
        B_C := A.First;
     end
[20:36:18] <coopht> if;

     while (A_C /= No_Element) loop
        decla  procedure Sum (A : in out Vector; B : in Vector)
  is
     Add : My_Integer := 0;
     A_C   : Cursor;
     B_C   : Cursor;

  begin
     Put ("["& ToString (A) & "+" & ToString (B) & " = ");
     if A.Length > B.Length then
        A_C := A.First;
        B_C := B.First;
     else
        A_C := B.First;
        B_C := A.First;
     end if;

     while (A_C /= No_Element) loop
        declare
[20:37:21] <coopht> procedure Test (A : in out Vector; B : in Vector)
  is
     A_C   : Cursor;
     B_C   : Cursor;

  begin
     if A.Length > B.Length then
        A_C := A.First;
        B_C := B.First;
     else
        A_C := B.First;
        B_C := A.First;
     end if;

Вот как-то так:
if A_C in vector (A) then
...
else
...
[20:37:28] <coopht> смотрите второй пример
[20:43:02] <coopht> А, все уже на не надо )
[20:46:39] <yeo> помойму нельзя узнать какому из векторов принадлежит курсор