Delphi dasturiy vostasi-bu Windows uchun mo’ljallangan dasturlash mu

With Opendialog1 do
Begin
If not Execute then Exit;
Memo1.Lines.LoadFromFile(Filename)
End;
10.Botton2 tugmasini ikki marta tez-tez bosib, dastur kodlarini kiritish darchasiga o’tib quyidagi operatorlarni kiritamiz.
With Savedialog1 do
Begin
If not Execute then Exit;
Memo1.Lines.SaveToFile(Filename);
End;
11.Botton3 tugmasini ikki marta tez-tez bosib, dastur kodlarini kiritish darchasiga o’tib quyidagi operatorlarni kiritamiz.


With Fontdialog1 do
Begin
If not Execute then Exit;
Memo1.Font:=Font;
End;


12.Tuzilgan loyiha (proyekt) ya’ni Project1 va Unit1 standart modul nomlarini mos nomlar bilan almashtirib saqlaymiz.
13.YAngi nom bilan saqlangan proyekt, ya’ni ilova F9 tugmachasini bosish bilan ishga tushuriladi.
Ilova ishga tushirilganda uning quyidagi ko’rinishi ekranda namayon bo’ladi.



Tashkil qilingan modulning to’liq ko’rinishini keltiramiz.


unit Diol1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
FontDialog1: TFontDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }