Sida 1 av 3
Tilldela (Sätta värden)
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls, Buttons;
type
{ TForm1 }
TForm1 = class(TForm) BitBtn1: TBitBtn;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Memo1: TMemo;
Panel1: TPanel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
Sida 2 av 3
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations } public
{ public declarations } end;
var
Form1: TForm1;
implementation { TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Caption := Application.Title;
Memo1.Lines.clear;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := 'Gallerierna på fliken Infoga innehåller objekt som är utformade efter dokumentets övergripande stil.';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Text := 'Gallerierna på fliken Infoga innehåller objekt' + #13#10 + 'som är utformade efter dokumentets övergripande stil.';
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i: Integer;
begin
Memo1.Lines.clear;
for i := 1 to 10 do begin
Memo1.Lines.Add('Textrad ' + IntToStr(i));
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
t1,t2,sum: Integer;
begin
Memo1.Lines.clear;
t1 := 4;
t2 := 5;
sum := t1 + t2;
Memo1.Text := IntToStr(t1) + ' + ' + IntToStr(t2) + ' = ' + IntToStr(sum);
end;
Sida 3 av 3
procedure TForm1.Button5Click(Sender: TObject);
var
t1,t2,diff: Integer;
begin
Memo1.Lines.clear;
t1 := 14;
t2 := 9;
diff := t1 - t2;
Memo1.Text := IntToStr(t1) + ' - ' + IntToStr(t2) + ' = ' + IntToStr(diff);
end;
procedure TForm1.Button6Click(Sender: TObject);
var
f1,f2,prod: Integer;
begin
Memo1.Lines.clear;
f1 := 11;
f2 := 9;
prod := f1 * f2;
Memo1.Text := IntToStr(f1) + ' - ' + IntToStr(f2) + ' = ' + IntToStr(prod);
end;
procedure TForm1.Button7Click(Sender: TObject);
var
s: string;
begin
s := Memo1.Text;
if (Length(s) > 0) then begin
ShowMessage(Memo1.Text);
end else begin
ShowMessage('Det finns ingen text att visa.');
end;
end;
initialization {$I unit1.lrs}
end.