BoolProg Sida 1 av 3

(1)

Sida 1 av 3

BoolProg

unit unit unit

unit Unit1;

{$mode objfpc}{$H+}

interface interface interface interface uses

uses uses uses

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls;

type type type type

{ TForm1 }

TForm1 = classclassclassclass(TForm) Button1: TButton;

Edit1: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit12: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Label1: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

(2)

Sida 2 av 3

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

procedureprocedureprocedureprocedure Button1Click(Sender: TObject);

procedureprocedureprocedureprocedure Edit1KeyPress(Sender: TObject; varvarvar Key: char); var procedureprocedureprocedureprocedure FormCreate(Sender: TObject);

private

{ private declarations } public

{ public declarations } endendendend;

varvar varvar

Form1: TForm1;

implementation implementation implementation implementation { TForm1 }

//OBS! Markera alla //OBS! Markera alla //OBS! Markera alla

//OBS! Markera alla Editrutorna och klicka sedan pEditrutorna och klicka sedan pEditrutorna och klicka sedan påEditrutorna och klicka sedan påå å OnKeyPressOnKeyPress OnKeyPressOnKeyPress under under under under EventsEventsEventsEvents //DÅ kommer denna procedur att g

//DÅ kommer denna procedur att g //DÅ kommer denna procedur att g

//DÅ kommer denna procedur att gääälla alla Editrutor.älla alla Editrutor.lla alla Editrutor.lla alla Editrutor.

procedure procedure procedure

procedure TForm1.Edit1KeyPress(Sender: TObject; varvarvar Key: char); var begin

begin begin begin

ifififif notnotnotnot (Key in [#8, '0'..'9']) thenthenthen Key := #0; then endend

endend;

procedure procedure procedure

procedure TForm1.Button1Click(Sender: TObject);

varvar varvar

b1,b2,b3,b4,b5,b6: Boolean;

begin begin begin begin trytrytrytry

//Sätter värde pÅ boolska variabler//Sätter värde pÅ boolska variabler//Sätter värde pÅ boolska variabler//Sätter värde pÅ boolska variabler

b1 := StrToInt(Edit1.Text) < StrToInt(Edit2.Text); //Mindre än

b2 := StrToInt(Edit3.Text) <= StrToInt(Edit4.Text); //Mindre än eller lika med b3 := StrToInt(Edit5.Text) > StrToInt(Edit6.Text); //StÖrre än

b4 := StrToInt(Edit7.Text) >= StrToInt(Edit8.Text); //StÖrre än eller lika med b5 := StrToInt(Edit9.Text) = StrToInt(Edit10.Text); //Lika med

b6 := StrToInt(Edit11.Text) <> StrToInt(Edit12.Text); //Ej lika med, skilt ifrån

//Sätter färg pÅ etikett//Sätter färg pÅ etikett//Sätter färg pÅ etikett//Sätter färg pÅ etikett---text-texttext text

ifififif b1 thenthenthen Label7.Font.Color := clGreen elsethen elseelseelse Label7.Font.Color := clRed;

//Skriver ut sant/falskt//Skriver ut sant/falskt//Skriver ut sant/falskt//Skriver ut sant/falskt

ifififif b1 thenthenthen Label7.Caption := 'SANT' elsethen elseelseelse Label7.Caption := 'FASKT';

exceptexceptexceptexcept

ShowMessage('Fel på värde(n)');

endendendend;

endend endend;

(3)

Sida 3 av 3 procedure

procedure procedure

procedure TForm1.FormCreate(Sender: TObject);

begin begin begin begin

//Rensar Editrutorna vid programstart Edit1.Text := Sysutils.EmptyStr;

Edit2.Text := Sysutils.EmptyStr;

//Rensar Etiketter vid programstart Label7.Caption := Sysutils.EmptyStr;

Label8.Caption := Sysutils.EmptyStr;

endend endend;

initialization initialization initialization initialization {$I unit1.lrs}

endend endend.

BoolProg Sida 1 av 3

BoolProg

Relationsoperatorer

---

< mindre än

<= mindre än eller lika med

> större än

>= större än eller lika med

= lika med

<> ej lika med, skilt ifrån

---