Memo compenent i

[Nixie]

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Clear;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile('.\DENEME.txt');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('.\DENEME.txt');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Memo1.Font.Size:=StrToInt(Edit2.Text);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Memo1.Font.Style:=[fsBold];
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Memo1.Font.Style:=[fsItalic];
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
Memo1.Font.Style:=[fsUnderline];
end;



tşklr: by vezir