Delphi'de Not Defteri

Delphi'de Not Defteri

text editörüne yazılan yazıyı .txt olarak kaydediyor.

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
MainMenu1: TMainMenu;
DOSYA1: TMenuItem;
A1: TMenuItem;
Yeni1: TMenuItem;
DZEN1: TMenuItem;
Kes1: TMenuItem;
Kopyala1: TMenuItem;
Yaptr1: TMenuItem;
BM1: TMenuItem;
Yaztipi1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
procedure Yeni1Click(Sender: TObject);
procedure k1Click(Sender: TObject);
procedure Kes1Click(Sender: TObject);
procedure Kopyala1Click(Sender: TObject);
procedure Yaztipi1Click(Sender: TObject);
procedure Yaptr1Click(Sender: TObject);
procedure Sil1Click(Sender: TObject);
procedure A1Click(Sender: TObject);
procedure Katdet1Click(Sender: TObject);
procedure Kaydet1Click(Sender: TObject);
procedure emizle1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Yeni1Click(Sender: TObject);
begin
memo1.Text:='';
end;

procedure TForm1.k1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Kes1Click(Sender: TObject);
begin
memo1.CutToClipboard ;
end;

procedure TForm1.Kopyala1Click(Sender: TObject);
begin
Memo1.CopyToClipboard ;
end;

procedure TForm1.Yaztipi1Click(Sender: TObject);
begin
FontDialog1.Execute;
memo1.Font :=FontDialog1.Font ;
memo1.Font.Size :=FontDialog1 .font.Size ;
memo1.Font.Style:=FontDialog1 .Font.Style ;
end;

procedure TForm1.Yaptr1Click(Sender: TObject);
begin
memo1.PasteFromClipboard ;
end;

procedure TForm1.Sil1Click(Sender: TObject);
begin
memo1.Text:=''
end;

procedure TForm1.A1Click(Sender: TObject);
begin
OpenDialog1.Execute ;
end;

procedure TForm1.Katdet1Click(Sender: TObject);
begin
SaveDialog1.Execute ;
end;

procedure TForm1.Kaydet1Click(Sender: TObject);
begin
SaveDialog1.Execute;
memo1.Lines.SaveToFile(SaveDialog1.FileName+'.txt' );
end;

procedure TForm1.emizle1Click(Sender: TObject);
begin
memo1.text:=''
end;

end.