Delphi Código fonte (Editor de Texto)

[BuiuDeJaraguaDoSul]

Novo
 
Memo1.Clear;
Memo1.SetFocus;
 
-----------------------------------------
Abrir
 
if openDialog1.Execute then
begin
memo1.Lines.LoadFromFile(OpenDialog1.Filename);
memo1.setfocus;
end;
 
-----------------------------------------
 
Botão Salvar
 
if save.execute then
begin
memo1.Lines.SaveToFile(save.Filename);
end;
 
-----------------------------------------
Copiar
Memo1.CopytoClipBoard;
 
-----------------------------------------
Colar
 
Memo1.PasteFromClipboard; ;
 
-----------------------------------------
Recortar
 
Memo1.CutToClipBoard
 
-----------------------------------------
Fonte
 
FontDialog1.Font:=Memo1.Font;
if FontDialog1.Execute then
begin
Memo1.Font:= FontDialog1.Font;
Memo1.SetFocus;
end;

[BuiuDeJaraguaDoSul]

Corrigir código

Novo
 
Memo1.Clear;
Memo1.SetFocus;
 
-----------------------------------------
Abrir
 
if openDialog1.Execute then
begin
memo1.Lines.LoadFromFile(OpenDialog1.Filename);
memo1.setfocus;
end;
 
-----------------------------------------
 
Botão Salvar
 
if save.execute then
begin
memo1.Lines.SaveToFile(save.Filename);
end;
 
-----------------------------------------
Copiar
Memo1.CopytoClipBoard;
 
-----------------------------------------
Colar
 
Memo1.PasteFromClipboard; ;
 
-----------------------------------------
Recortar
 
Memo1.CutToClipBoard
 
-----------------------------------------
Fonte
 
FontDialog1.Font:=Memo1.Font;
if FontDialog1.Execute then
begin
Memo1.Font:= FontDialog1.Font;
Memo1.SetFocus;
end;

Botão Salvar está errado,o correto é assim:

if SaveDialog1.execute then
begin
memo1.Lines.SaveToFile(SaveDialog1.Filename);
end;