Sida 1 av 3
LogicProg
unit unit1;
{$mode objfpc}{$H+}
interface
uses
classes, sysutils, fileutil, lresources, forms, controls, graphics, dialogs, ExtCtrls, StdCtrls;
type
{ tform1 }
tform1 = class(tform) button1: tbutton;
button2: tbutton;
button3: tbutton;
groupbox1: tgroupbox;
radiogroup1: tradiogroup;
radiogroup2: tradiogroup;
radiogroup3: tradiogroup;
procedure button1click(sender: tobject);
procedure button2click(sender: tobject);
procedure button3click(sender: tobject);
procedure formcreate(sender: tobject);
private
{ private declarations } public
{ public declarations } end;
var
form1: tform1;
implementation
Sida 2 av 3
{ tform1 }
procedure tform1.formcreate(sender: tobject);
begin
radiogroup1.ItemIndex := 0;
radiogroup2.ItemIndex := 0;
radiogroup3.ItemIndex := 0;
end;
procedure tform1.button1click(sender: tobject);
var
a,b,res: Boolean;
begin
radiogroup3.Caption := ‘Värde av (A AND B)';
a := (radiogroup1.ItemIndex = 1); //Läser av A b := (radiogroup2.ItemIndex = 1); //Läser av B res := a and b; //Sätter resultat
if res then radiogroup3.ItemIndex := 1 else radiogroup3.ItemIndex := 0;
end;
procedure tform1.button2click(sender: tobject);
var
a,b,res: Boolean;
begin
radiogroup3.Caption := ‘Värde av (A OR B)';
a := (radiogroup1.ItemIndex = 1); //Läser av A b := (radiogroup2.ItemIndex = 1); //Läser av B res := a or b; //Sätter resultat
if res then radiogroup3.ItemIndex := 1 else radiogroup3.ItemIndex := 0;
end;
procedure tform1.button3click(sender: tobject);
var
a,b,res: Boolean;
begin
radiogroup3.Caption := ‘Värde av (A XOR B)';
a := (radiogroup1.ItemIndex = 1); //Läser av A b := (radiogroup2.ItemIndex = 1); //Läser av B res := a xor b; //Sätter resultat
if res then radiogroup3.ItemIndex := 1 else radiogroup3.ItemIndex := 0;
end;
initialization {$I unit1.lrs}
end.