Sida 1 av 2
AddProg
unit Unit1;
{$mode objfpc}{$H+}
interface uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, Buttons;
type
{ TForm1 }
TForm1 = class(TForm) Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: char);
procedure Edit2KeyPress(Sender: TObject; var Key: char);
procedure SpeedButton1Click(Sender: TObject);
private
{ private declarations } public
{ public declarations } end;
Sida 2 av 2
var
Form1: TForm1;
implementation { TForm1 }
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Edit1.Text := SysUtils.EmptyStr;
Edit2.Text := SysUtils.EmptyStr;
Panel1.Caption := SysUtils.EmptyStr;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
term1,term2,sum: Integer;
begin
term1 := StrToInt(Edit1.Text);
term2 := StrToInt(Edit2.Text);
sum := term1 + term2;
Panel1.Caption := IntToStr(sum);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
if not (Key in [#8, '0'..'9']) then begin
ShowMessage('Ogiltig tangent');
Key := #0;
end;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: char);
begin
if not (Key in [#8, '0'..'9']) then begin
ShowMessage('Ogiltig tangent');
Key := #0;
end;
end;
initialization {$I unit1.lrs}
end.
