Sida 1 av 2
ArrayProg
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, Spin;
type
{ TForm1 }
TForm1 = class(TForm) Button1: TButton;
Button2: TButton;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations } public
{ public declarations } end;
var
Form1: TForm1;
implementation
type
TDays = array[1..7] of string;
TMonths = array[1..12] of string;
const
Days : TDays = ('Måndag','Tisdag','Onsdag','Torsdag','Fredag','Lördag','Söndag');
Months : TMonths = ('Januari','Februari','Mars','April','Maj','Juni', 'Juli','Augusti','September','Oktober','November','December');
Sida 2 av 2
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject); //Hur skapas denna kod?
begin
Form1.Caption:= Application.Title;
//--- SpinEdit1.MinValue := 1;
SpinEdit1.MaxValue := 7;
SpinEdit1.Value := 1;
//--- SpinEdit2.MinValue := 1;
SpinEdit2.MaxValue := 12;
SpinEdit2.Value := 1;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
i := SpinEdit1.Value;
ShowMessage(Days[i]);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
begin
i := SpinEdit2.Value;
ShowMessage(Months[i]);
end;
initialization {$I unit1.lrs}
end.