Delphi:    
  


        Delphi 10.3.         ,   Delphi 10.3      ,       ,      ,     ,     ,  ,      .





Delphi:    



  



  ,2023



ISBN978-5-0060-5271-0

     Ridero







  Delphi  -   ,         Pascal.          Windows   ( Microsoft Office)    .

 2011  Delphi XE2   Win 64   Apple(MacOS X, iOS), 2013 Delphi XE5       Android. Ѡ XE6    500, ,        .        Delphi 10.3,  : , ,         , ,  ,        .

   , ,   ,  , ,     ,     XE5, 6, 10        . ʠ,  ,   Delphi 67,     ,    FireMonkey,     .

    Delphi 10.3,  , ,     Delphi   Android ,       ,       ,                .




1.Delphi 7 Delphi 10.3?


 ,    ,        Windows, , ,   Delphi 7,       .  ,  ,      ,          .

,         Android    Windows,     Delphi7.

 ,  Delphi 710.3   ,  , .     ,   ,     ,   2 ,   -        .  Android    ,   Delphi 7, ,   ,    Rich Edit,   ,   .  ,      Delphi 7 ,            Delphi 10.3,      Win 64( 32)    .






. 1.  Delphi 10.3   Android Win64.






. 2.       Windows.



 ,    ,    ,  , ,    ,    ,     .

 ,      ( e-mail     )    ,   Android          .






. 3.     Android  .




2.ʠ  





2.1.  Delphi10.3


   Delphi, ,    FireMonkey,     .      - ,    , Windows Android,   :       ,   Delphi,    3D-  . , ,      Android         (, RichEdit,  ,   , ,  ,    ,   Edit  ).

ʠ,    ,     ,     ,   Timer  2,       ,         ,   ,    Memo   ,    ,  , .,        .  ,      Android ,        Google Play Market,    Delphi     APK   , ,   ,  ,    .




2.2.     () Delphi10.3


    ,    Google,   Delphi 10.3 .  , , .    ,  ,   ,   ,      .

        ,         : 렖 頖  堖    (  BlankApplication:  ).

 ,  ,  (Form1),       .



       .

: Structure(  ,     Form1), Objectinspector(     ).

: Pellete (  )  Project Group c   : BuildConfigeration(DebugRealese)     .






. 4.   .



:    ,  : File  ,   ; Project Option   (,   .)      ( debug  ).        (  )        ( ),       ,   2-    Android 蠫Master (  ).






.5.       .




2.3.      


      ⠫   Π            ,     蠫,    ,          USB. ,   ,      .











. 67.    .




2.4.    (Form1)


    ,     . -,     Form1,   .       1:2  , : 360* 700.      .

      ( Fill Color;    : Brush Gradient,  gradient   Kind Gradient).






.9.      .



  Brush Desiner  2-      ,    +90


.

     FullSreen  Position  ScreenCenter.       .

        :  (Button),  (Label),  (Edit),     (Memo,  ,  Rich Edit   Android)   (: Delphi 10.3    StringGrid     Grid    ).      Standard Grids.    Panel Layout  ,     ,   .




2.5.    


         (   ),         .          !

      Project  Build Project,              .

  ,    Run      . ,       ,          ,    .

      Android  APK,   : Android/Debug (Release) //bin/.APK.




2.6.   


       :

 Project Option Version Info    (   )  label.

UsesPermissions       (  !),    .

  ꠖ  icons (   36x36 144x144).

  Otientation   Portrait,   ꠖ          .

,   : Project Options Provisioning    New Keystore,      :    (*.keystore),  ,  (    ),    ( 9132).     ,    .






. 10.   .



   GooglePlay    Google;   (,        Android)  .



     ,   Google play .

   ,        Google,     Upload Application.

     ,  ,    ( Google   ).






. 11.   .




2.7.     Android


     Android   ⠖   ,          .

    Master  Scale           .

     LayOut,  GridPanelLayout FlowLayout     ,    ; GridLayout ,      .   Structure      Layout.         Effects.  Panel       .

   ࠖ       Align,        Align.

    Margin     ,   Position.

 Delphi 10.3  , ,   Form1  . , ,    ,   StyledSetting    TextSetting      .   Tahoma 12  , 1416  1011   ,      . WordWrap(    AutoSize:=false)         =true.       =center(leading).






. 12.   .



     : Opacity,  1.0   .

         .     ,  ,       .

   :    .  ,           vkbdhelper.pas,  :  ,    .

   Delphi 10.3  Android  Dialog,    .    .

   Panel:              ;    ,   .  Effects    (   ),   .   蠖      (   Client   ).    Effects      ,      .




3.  


 Delphi 10.3   ,  Delphi 7,  ,       ,     ,    .   FireMonkey ,           ,   Effects,    -.

,    Effects     ,  , ,         (    Delphi 10.3     ).        : TBevelEffect   (  Panel) TInnerGlowEffect  , : TReflectionEffect, TGlowEffect  , TShadowEffect  TBlurEffect .         Structure     .






. 13.      ImageList Editor.



      :    ,   ,  ()   ( ImageListEditor,       ,       ).  ,           Delphi  .        .      ,  TBevelEffect    ,   ,    ;       (!)          Label.     ,        .

 :  (Edit):    ,     (  13  ImageList),     TInnerGlowEffect,       .

     .      ,   .



   :

  : Align ; Android  ,   堫  .    : , , ,  Client,     (,  .),        ,  蠖 Client.   Scale, ,       .

  (auto SizeLabel),

 ,    ,






. 14.   .



 ,    (  ,       leading).       WordWrap (  true)       ;        ShowScrollBars EnabledScroll = true,     , , ,  ,     ,    (         ,  ),

  ( ImageList Editor),    ,

  (Visible Enable = true/false),      ,

    蠫Read nly,

 (           ),

 Position (X Y)   (, )  Margin , ,  ,

     , ,        .




4.  Delphi10.3


 ,  ,     (begin)  var:

		var
		x,y:Integer;
		m: Double;
		n: Float;
		str1:String; //  .

Mas: array [1100] ofString; //   100,  0

Ar: array[0..9]ofarray[0..9] integer; //  ,  0.

D: array ofreal; //  

MyChar: Char; //     .

R: TRect; //,  R. Left, R. Up, R. Right, R.Down.



 : Word, Integer, Doable, Float, Real; ,    56,   Integer   Double   ,       : 3.14E+2= 3.14E+00= 3.14; 23.5-2= 0.235.    x   Round (x),   ;        Trunk (x)   Frac(x).

      math User  .    ,  :   abs (),  sqr (x)   : sqrt (x);    : x


 = exp (n*ln (x);  n-  x = exp (1/n*lnx).     X


: Power (x,y):

		var
		Z: Real;
		begin
		Z:= Power (0.25, 0.5); {Z:=0.5}
		end;

  : Random (n),    ()   01;  n 젖   0n-1.



   Char: Type: Char = #0..#255; Char:= 3.      Chr (n).  ANSI: #0255. UNICODE:  256 = ANSI. Chr (66) = B; Char (67) =C.

		var
		myChar: Char;
		begin
		myChar:= G; //   
		ShowMessage ( G = ' +myChar); //  G =G
		myChar:= #65; //   
		ShowMessage (#65= ' +myChar); //  #65=
		end;

     : n:= 10;   (=)     (true/false): if n = 10then : X <>Y.



:      .  :

: Mas: array [1100] ofString; //   0.

e: Ar: array[0..9] ofarray [0..9]ofinteger;

 : D: array ofreal.

       ( 0): setLeangth (D,20).  : D_M: =nil.    0,  ,  1.

   : n:= D [21]; : D [21]:= n.       :

for n:= 1to100do

begin

D [n]:= n-1; //   D [100],  0

end;

      : MaxIntVal (D); MinVal (D): double); Mean (D):double),     : D:= copy (D, 0, 20) .

: ShortString: 255   2; String = AnsiString: 1031. AnsiString  WideString    .   AnsiString    ANSI,  WideString  Unicode.     String. String [n]   .

    :

  ,  : n:= Pos (subStr, str);

  str c  index   count: str1:= copy (str, index, count);

     delete (str, index, count);

 : insert (str1, str0, index);

    : length (str).

       : StringOfChar (, count);    ,      .

SelStart SelLength   1-   , SelText  ,    SelectAll;ClearSelection   ; Clear  , Undo   .

    CopyToClipBorad,   Paste,    StringReplace ().       ; , Memo.CopyToClipBorad  ,      Memo     :

Memo.SelectAll;

Memo.CopyToClipBorad



: string1 + #13#10+ string2 (     string2  ).



   ,       , : StrToInt; InToStr; StrToFloat (str);  : FloatToStrF (n, ffGeneral  ffFixed, count  , count   ).  Float  Double.



 .      ,      DateToStr (Now):  : DateTimeToStr (Now).

		  :
		dd/mm/yy hh: mm: ss = 09/02/4901:02:03
		mmm =Feb
		mmmm = February
		ddd =Tue
		dddd = Tuesday
		ddddd = 09/02/2049
		dddddd = 09February2049
		hhampm =01AM
		t = 01:02
		tt = 01:02:03
		dd/mm/yyyy = 09/02/2049
		dd/mm/yy hh: mm: ss = 09-02-4901_02_03
		mmm =FEB
		mmmm = FEBRUARY
		ddd =WED
		dddd = WEDNESDAY
		ddddd = 09-FEB-49
		dddddd = WEDNESDAY 09ofFEBRUARY of1949
		hhampm = 01morning
		t = 01_02_03
		tt = 01_ 02_ 03.004
		dd/mm/yyyy = 09-02-1949

 Delphi 10.3  ,  : Timer,     Timer. Enable:= true   false;   ,      (). ,    (50)        ,   2   ,      (  Android    ).     2-  Delphi 10.3    -:

 2-  :

		//  Start
		var
		str, h, m, s: String;
		t1:Integer;
		begin
		str:= DateTimeToStr (Now); //  
		h:= Copy (str, 12, 2);//     
		m:= Copy (str, 15,2);
		s:= Copy (str, 18,2);
		t1:= StrToInt (h) *3600+ StrToInt (m) *60+ StrToInt (s); //  
		Edit1.Tex:= IntToStr (t1);
		end;
		// Stop
		var
		str, h, m, s: String;
		t, t1, t2:Integer;
		begin
		str:= DateTimeToStr (Now); //  
		h:= Copy (str,12,2);
		m:= Copy (str,15,2);
		s:= Copy (str,18,2);
		t2:= StrToInt (h) *3600+ StrToInt (m) *60+ StrToInt(s);
		t1:= StrToInt (Edit1.text);
		t:= t2t1;
		Edit3.Text:= IntToStr (t); //   
		end;
		      :

var

Hour, Min, Sec, Msec: Word;

begin

DecodeTime (Now, Hour, Min, Sec, Msec);

Edit1.Text:=IntToStr (Hour) +IntToStr (Min) +IntToStr (Sec) + IntToStr (Msec);

end;




5. 


    Standard,  Additional   ,        Standart;  System    Timer ( ),  Win32.

    Grids  蠖   StringGrid Grid          ,    堖 Header.

       , ,   Shapes,    : , , , , ,     ,         .

    PlotGrid   ,      .

 Effects,      ,      ,    -   Edit.   , ,  .,  ,     ,    (  Animations,  Styles   3D  ),   Delphi   ,       .      .

,  LiveBinding,    Firemonkey,       ,       .

 Color      ,    ,     ,    .      ColorBox.               Rectangle ()  Shapes,        .

  ,        Layouts,   ,  ,     Delphi       Panel, , ,     ,   .

 Common Control   蠖 TabControl MultiView.

  Dialogs Delphi 10.3 (,    Android).

       ,   SQL   蠖 Fire,     .

   Android     : , , , , Bluetooth ( Systems), , ,     .      : Project Options Uses Permissions.

, ,   Standard,           .

       :

 Standard: Label (), Edit (), Memo (  ,   Rich Edit), Button (), CheckBox  RadioButton   , ListBox (), ImageControl  ImageList Panel    ;

 Addinional: PlotGrid  , NumberBox    , ComboEdit   ,  MediaPlayer;

 Grids:  StringGrid   ;

 Shapes:       ;

 Colors: , ColorBox;

 Effects: BevelEffect     Panel, TinnerGlowEffect     Edit;

  Layouts      ,       Panel.



 ,      Standart    / ,   .

    :

ࠖ Label,

 Edit,

  ࠖ Memo (RichEdit ),

蠖 List.



       ,  .        ,          ( false   StyledSettings)    ,    ;       (StyleLookup),          .

 (, , , , , ,  ,    ,   .)  ,        .




6.    





6.1.  ࠖ Label


 Label    , , ,   /   .          Align: Top  Bottom   ,    TextSetting (    leading).

 StyledSetting    (false)   TextSettings,     .

  : ReadOnly (   ,     ) AutoSize    ,   ,      .

   WordWrap = true TextSetting,       .

    .       :

Label1.Text:=  ; // 

Label1.Text:= str; // str  

str:= Label1.Text;

Label1.Text. Empty =;

     ,   ,       .

   ,       ,     ,        ,   Label          .






. 15.       Label.



6.2.   Edit.



 Edit, ,    ( 頖 Button,    ).

  Delphi    ,  Delphi 10.3   ,   ,       Effects




  .


   .

   ,     (https://www.litres.ru/pages/biblio_book/?art=69609376)  .

      Visa, MasterCard, Maestro,    ,   ,     ,  PayPal, WebMoney, ., QIWI ,       .


