Sida 1 av 3
ForProg
unitunitunit
unit Unit1;
{$mode objfpc}{$H+}
interface interfaceinterface interface usesusesuses
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
typetypetype type
{ TForm1 }
TForm1 = classclassclass(TForm) class Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
ListBox1: TListBox;
procedureprocedureprocedure Button1Click(Sender: TObject); procedure procedureprocedureprocedure Button2Click(Sender: TObject); procedure procedureprocedureprocedure Button3Click(Sender: TObject); procedure procedureprocedureprocedure Button4Click(Sender: TObject); procedure procedureprocedureprocedure Button5Click(Sender: TObject); procedure procedureprocedureprocedure Button6Click(Sender: TObject); procedure procedureprocedureprocedure Button7Click(Sender: TObject); procedure
Sida 2 av 3
procedureprocedureprocedure Button8Click(Sender: TObject); procedure procedureprocedureprocedure Button9Click(Sender: TObject); procedure private
{ private declarations } public
{ public declarations } endendend; end
varvarvar var
Form1: TForm1;
implementation implementationimplementation implementation { TForm1 } procedure procedureprocedure
procedure TForm1.Button1Click(Sender: TObject);
varvarvar var
i: Integer;
begin beginbegin begin
ListBox1.Clear;
forforfor i := 32 tofor tototo 46 dodododo ListBox1.Items.Add(IntToStr(i) + ' - ' + Chr(i));
endendend end;
procedure procedureprocedure
procedure TForm1.Button2Click(Sender: TObject);
varvarvar var
i: Integer;
begin beginbegin begin
ListBox1.Clear;
forforfor i := 48 tofor tototo 57 dodododo ListBox1.Items.Add(IntToStr(i) + ' - ' + Chr(i));
endendend end;
procedure procedureprocedure
procedure TForm1.Button3Click(Sender: TObject);
var varvar var
i: Integer;
begin beginbegin begin
ListBox1.Clear;
forforfor i := 58 tofor tototo 64 dodododo ListBox1.Items.Add(IntToStr(i) + ' - ' + Chr(i));
endendend end;
procedure procedureprocedure
procedure TForm1.Button4Click(Sender: TObject);
var varvar var
i: Integer;
begin beginbegin begin
ListBox1.Clear;
forforfor i := 65 tofor tototo 90 dodododo ListBox1.Items.Add(IntToStr(i) + ' - ' + Chr(i));
end endend end;
procedure procedureprocedure
procedure TForm1.Button5Click(Sender: TObject);
var varvar var
i: Integer;
begin beginbegin begin
ListBox1.Clear;
forforfor i := 91 tofor tototo 96 dodododo ListBox1.Items.Add(IntToStr(i) + ' - ' + Chr(i));
end endend end;
procedure procedureprocedure
procedure TForm1.Button6Click(Sender: TObject);
var varvar var
i: Integer;
begin beginbegin begin
ListBox1.Clear;
forforfor i := 97 tofor tototo 122 dodododo ListBox1.Items.Add(IntToStr(i) + ' - ' + Chr(i));
end endend end;
Sida 3 av 3
procedure procedureprocedure
procedure TForm1.Button7Click(Sender: TObject);
varvarvar var
i: Integer;
begin beginbegin begin
ListBox1.Clear;
forforfor i := 123 tofor tototo 127 dodododo ListBox1.Items.Add(IntToStr(i) + ' - ' + Chr(i));
endendend end;
procedure procedureprocedure
procedure TForm1.Button8Click(Sender: TObject);
varvarvar var
i: Integer;
begin beginbegin begin
ListBox1.Clear;
forforfor i := 32 tofor tototo 127 dodododo ListBox1.Items.Add(IntToStr(i) + ' - ' + Chr(i));
endendend end;
procedure procedureprocedure
procedure TForm1.Button9Click(Sender: TObject);
varvarvar var
i: Integer;
begin beginbegin begin
ListBox1.Clear;
forforfor i := 128 tofor tototo 255 dodododo ListBox1.Items.Add(IntToStr(i) + ' - ' + Chr(i));
endendend end;
initialization initializationinitialization initialization {$I unit1.lrs}
endendend end.