Вопрос о правильном понимании операторов or и and в операторе case.

[vr83]

Вроди бы все ясно как день, но вот с чем я столкнулся:

Сделал на форме(Delphi) панель (Height 186, Width 186). На панели кнопка (Height 186, Width 186, Left 0, Top 0, Tag 1).

Дальше код:

....

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
Button1.BeginDrag(false);
end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
Accept := Source is TButton
end;

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
case (source as TButton).Tag of

  1:
    begin 

    case ((source as TButton).Left) and ((source as TButton).Top) of

    ((0) and (0)):
    
    begin
    if ( X >= 93 ) and ( X < 186 ) and ( Y < 93 ) then
      begin
      (source as TButton).Left := 93;
      (source as TButton).Top := 0;
      end;
    if ( X < 93 ) and ( Y >= 93 ) and ( Y < 186 ) then
     begin
     (source as TButton).Left := 0;
     (source as TButton).Top := 93;
     end;
    end;



    end; // конец case left+Top блока

  end; // конец  1 tag




end; // конец case tag блока
end; // конец метода

end.

Ну вот. Теперь кнопке можно присвоить новые координаты перетаскиванием. Ee можно перетащить вправо или вниз на панели. И как ни странно по диагонали. Т.е. сначала перетащить например на координаты Лефт и Топ = (0 и 93), а потом от туда перетащить на координаты (93 и 0), так же и обратно. К тому же, если начальные координаты кнопки будут например не (0 и 0), а (0, 3) ее так же можно будет перетаскивать. Почему, ведь стоит оператор AND:

....

case ((source as TButton).Left) and ((source as TButton).Top) of

    ((0) and (0)):

....

Теперь если подставить вместо AND оператор OR:

....

case ((source as TButton).Left) or ((source as TButton).Top) of

    ((0) or (0)):

....

то кнопку нельзя будет перетаскивать по диагонали. К тому же если начальные координаты кнопки будут отличны от (0, 0) то их вообще нельзя будет поменять перетаскиванием. Опять же странно. Такое ощущение что в операторе CASE: AND это OR, а OR это AND. Объясните пожалуста.

[Stilet]

Оператор case в делфи как и в паскале очень ограничен в возможностях.
Когда ты пишешь ((source as TButton).Left) or ((source as TButton).Top) это все равно что ((source as TButton).Left) + ((source as TButton).Top)
А ((0) or (0)) все равно что ((0) + (0)):
Вообще этим оператором не проверяют несколько параметров, лучше для этого использовать IF

    if
 ((source as TButton).Left=0) and ((source as TButton).Top=0) then
   begin
    if ( X >= 93 ) and ( X < 186 ) and ( Y < 93 ) then
      begin
      (source as TButton).Left := 93;
      (source as TButton).Top := 0;
      end;
    if ( X < 93 ) and ( Y >= 93 ) and ( Y < 186 ) then
     begin
     (source as TButton).Left := 0;
     (source as TButton).Top := 93;
     end;
    end;

[vr83]

Я сначала так и сделал, но потом решил использовать case, потому что код громоздкий получался. Я знал что в case нужно записать выражение а не условие. Но ведь все равно по логике оператор "and" больше подходит к значению "+", чем "or". А уменя получилось на оборот както.
И вот еще:

var
X, Y: integer;
Label L;

begin
L:
ReadLn(X, Y);
case (X) and (Y) of
((1) and (0)):
begin
Writeln(X, ' ', Y);
goto L;
end;
end;
writeln(X, '$', Y);
goto L;
end.

выдало следующее:

• 0
  1
  0 1
  
  1
  0
  1 0
  
  0
  0
  0 0
  
  2
  0
  2 0
  
  0
  2
  0 2
  
  20
  0
  20 0
  
  02
  0
  2 0
  
  202
  0
  202 0
  
  0
  202
  0 202
  
  1
  202
  1 202
  
  202
  1
  202 1
  
  1
  1
  1$1

если же вместо "and" поставить "or":

• 0
  1
  0 1
  
  1
  0
  1 0
  
  1
  1
  1 1
  
  0
  0
  0$0

а если вместо "or" поставить "+":

• 1
  1
  1$1
  
  0
  0
  0$0
  
  0
  1
  0 1
  
  1
  0
  1 0
  

т.е. or это не совсем +. Опять же не понятно.

[vr83]

Все я совсем запутался.

....
procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
label L;
begin
case (source as TButton).Tag of
// кнопкам присвоены различные значения tag в зависимости от формы

  1:
    begin   //кнопка 93*93 (height, width)

    if ((source as TButton).Left = 93) and ((source as TButton).Top = 0) then

          begin

          if ( X >= 93 ) and ( X < 186) and ( Y >= 93 ) and ( Y < 186 ) then
            begin
            (source as TButton).Left := 93;
            (source as TButton).Top := 93;
            end;

          end;

    if ((source as TButton).Left = 93) and ((source as TButton).Top = 93) then

          begin

          if ( X >= 93 ) and (X < 186 ) and ( Y < 93 ) then
            begin
            (source as TButton).Left := 93;
            (source as TButton).Top := 0;
            end;
          if ( X >= 93 ) and ( X < 186 ) and ( Y >= 186) and ( Y < 279 ) then
            begin
            (source as TButton).Left := 93;
            (source as TButton).Top := 186;
            end;

          end;


  2:
    begin //кнопка 186*93

    if ((source as TButton).Left = 0) and ((source as TButton).Top = 0) then

          begin

          if ( X < 93 ) and ( Y >= 186 ) and ( Y < 279 ) then

            begin
            (source as TButton).Left := 0;
            (source as TButton).Top := 93;
            end;
          if ( X >= 93 ) and ( X < 186 ) and ( Y < 186 ) then
          if (Button1.Left <> 93) or (Button1.Top <> 0) and (Button1.Top <> 93) then
          L:
            begin
            (source as TButton).Left := 93;
            (source as TButton).Top := 0;
            end;

          end;

Вот. На панели (Height 279, Width 186) две кнопки, маленкая (Button1)93*93 (height, width) с начальными координатами Left,Top (93,93) и большая 186*93 (height, width)с начальными координатами (0,0). Маленькую как видно из кода можно перетащить на координаты (93,0), (93,93) и (93,186).
Большую на координаты (0,93) и (93,0).
В последнем случае

if (Button1.Left <> 93) or (Button1.Top <> 0) and (Button1.Top <> 93) then

выполняется проверка нет ли на координатах (93,0) или (93,93) кнопки (Button1). Так вот, если написать так как я написал все работает нормально (т.е если на координатах (93,0) или (93,93) находится Button1 то перетащить большую кнопку на координаты (0,93) не получитья). Но почему ведь правильнее было бы написать так:

if (Button1.Left <> 93) and (Button1.Top <> 0) or (Button1.Top <> 93) then

Хотя если так сделать то большую кнопку можно будет перетащить если маленькая кнопка находиться на координатах (93,0)
Опять у меня ощущение что and это or.
Если же везде поставить and то кнопку вообще нельзя будет перетащить (что логично потому что невыполнены все условия), если везде поставить or то кнопку можно будет перетащить в любом случае (что тоже понятно, потому что некоторые их условий выполнены). Объясните пожалуста нубу.

[vr83]

Оказывается надо было просто вот так писать:

if (Button1.Left <> 93) and ( (Button1.Top <> 0) or (Button1.Top <> 93)) then

.