OT:zase trochu Delphi

[Pavel Gazda]

Ahoj

mozna trochu pozde, ale prece jen bych doplnil:

> > -tohle je zbytecny radek:
> > >   If Combo.ItemIndex = 0 then

!!! obecne to nemusi byt pravda

 
 case Combo.ItemIndex of
   0: result:=A and B;
   1: result:= A or B;
   2: result:= not(A and B);
   3: result:= not(A or B);
   4:result:= A xor B;
 else
  begin
    Result := 
   { osetreni chyby zadani je-li mozna } 
  end;
end;
 

Varovani se vam vypise, pri prekladu.
Pokud ale neprovedete zadanou upravu a prelozite program znovu,
varovne hlasky zmizi.(vyzkousejte)

Pavel