MemoProg Sida 1 av 2

Sida 1 av 2

MemoProg

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

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

ExtCtrls, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm) Button1: TButton;

Button2: TButton;

Memo1: TMemo;

Panel1: TPanel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ private declarations } public

{ public declarations } end;

var

Form1: TForm1;

Sida 2 av 2

implementation { TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.Caption := 'MemoProg';

end;

procedure TForm1.Button1Click(Sender: TObject);

var

s: string;

begin

s := DateToStr(now);

Memo1.Lines.Add(s);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

s: string;

begin

s := TimeToStr(now);

Memo1.Lines.Add(s);

end;

initialization {$I unit1.lrs}

end.