MainMenu
MainMenu , , . MainMenu .
:
Caption- ,
Checked- , , , .
Enabled- Enabled False,
Break- , .
Items- TMenuEtem
, .. Items, TMenuItem, ,, . Name , . . , Ins Insert ( ). , . Del Delete . , , Ctrl+-> Create Submenu . - , .
StringGrid
StringGrid .
ColCount RowCount. . . DefaultColWidth DefaultRowHeight. , ColWidths RowHeights . FixedCols FixedRows . . ( FixedColor) . , . , , Cells.
, . . , , -. . . , ( ). .
|
|
TString
function Add (const S: string): Integer; virtual; - ;
function AddObject (const S: string; AObject: TObject): Integer; virtual; - - , -;
procedure Addstrings (Strings: TStrings); virtual; - ;
procedure Append (const S: string); - , ;
procedure Assign (Source: TPersistent); override; - Source . , ;
procedure Clear; virtual; abstract; - ;
procedure Delete (Index: Integer); virtual; abstract; - Index . ;
destructor Destroy; override; - TStrings. , Free;
function Equals (Strings: TStrings) Boolean; - Strings True, ;
procedure Exchange (Indexl, Index2: Integer); virtual; - IndexlIndex2;
function GetText: PChar; virtual; - Text ;
function IndexOf (const S: string): Integer; virtual; - S -1, ;
function IndexOfName (const Name: string): Integer; - Name;
procedure Insert (Index: Integer; const S: string); virtual; abstract; - Index;
procedure InsertObject (Index: Integer; const S: string; AObject: TObject); - Index;
procedure LoadFromFile (const FileName: string); virtual; - ;
procedure LoadFromStream (Stream: TStream); virtual; - ;
procedure Move (CurIndex, NewIndex: Integer); virtual; - CurIndex NewIndex;
procedure SaveToFile (const FileName: string); virtual; - FileName;
procedure SaveToStream (Stream: TStream); virtual; - ;
procedure SetText (Text: PChar); virtual; - .
38. RSA - , .
RSA , . ( ) , . . , . ( ) , .
|
|
RSA :
p q
n = p * q
m = (p - 1) * (q - 1)
d m
e , e * d = 1 (mod m)
e d RSA. - 0 n - 1. :
: b = ae (mod n)
: a = bd (mod n)
, , ,
- , , , . - .
. , , Uses.
,
Program Pm1;
Uses Mtx, Mfa;
, Pm1 : Mtx Mfa.
.
Unit <>; -
interface
...........
implementation
............
initialization
...... ()
finalization
..........
END.
. , . , .
40. - .
, , , .. , . : (); . (), . , . , . , () . . . , : , . , () (). . , . , .