Alqoritm, xassələri və təsvir üsulları

=2;
 
Memol.Lines.SaveToFile(SaveDialogl.FileName);
end; 
if Memol.Modified then Memol.Modified:=False; 
end;
procedure TForml.mnuExitClick(Sender: TObject); 
 Var
Rez:TModalResult;
begin
if Memo1.Modified then
begin
Rez:=MessageDlg (' Dəyişiklik yadda saxlanmayıb) '
+#13#10+' Yadda saxlayaq? ',
downloaded from KitabYurdu.org

---

225 
mtConfirmation,[mbOK,mbNo],0);
if Rez= mrNo then Close;
if Rez= mrOK then
begin
Memol.Lines.SaveToFile(FAYL); 
Close;
 end; 
end 
else Close; 
end;
procedure TForml.mnuündoClick(Sender: TObject); 
begin
SendMessage(Memol.Handle,EM_UNDO,0,0); 
end;
procedure TForml .mnuSelectAHClick (Sender: TObject) ; 
begin
MEmol.HideSelection:=False; 
Memol.SelectAll;
 end;
procedure TForml.mnuResetClick (Sender: TObject); 
begin
Memol.Color:= MemoColorYad;
 Forml.Color:= FormColorYad; 
end;
procedure TForml.mnuColorClick(Sender: TObject);
 begin
if ColorDialogl.Execute then
Memol.Color:= ColorDialogl.Color;
end;
downloaded from KitabYurdu.org

---

226 
procedure TForml.FormClose(Sender:TObject; 
var Action:TCloseAction);
begin
if Memol.Modified then
if MessageDlgC (Fayl dəyişmişdir! '+#13#10+
' Çıxırsımzmı? ,mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
Begin
if Memol.Modified then 
begin
Memol.Lines.SaveToFile (FAYL);
Action: = caFree;
end;
end
else Action:=caNone;
end;