Problem bei logischer abfrage

[Maja Jessica]

Hi,

getestet, und funktioniert so wie du es erwartest:

Delphi-Quellcode:

function cardexistsnoco(a,b : integer) : boolean;
begin
  showMessage('Bin bei '+IntToStr(a));
  if a = b then result := true else result := false;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if
  (cardexistsnoco(1,1)AND
   cardexistsnoco(2,2) AND
   cardexistsnoco(3,3333) AND
   cardexistsnoco(4,4) AND
   cardexistsnoco(5,5))
  or
  (cardexistsnoco(6,6)AND
   cardexistsnoco(7,7) AND
   cardexistsnoco(8,8) AND
   cardexistsnoco(9,9) AND
   cardexistsnoco(10,10)) then ShowMessage('fertig');
end;

MJ