[Mattew]

В программе я заполняю значения в Memo,как эти значения вписать в программу,чтобы не писать сто раз?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, Menus, jpeg, ExtCtrls, Buttons;    type   TForm1 = class(TForm)     Memo1: TMemo;     Memo2: TMemo;     Button1: TButton;     MainMenu1: TMainMenu;     Memo3: TMemo;     Memo4: TMemo;     Memo5: TMemo;     Memo7: TMemo;     Button2: TButton;     N1: TMenuItem;     N2: TMenuItem;     N3: TMenuItem;     fOpenDialog1: TOpenDialog;     fSaveDialog1: TSaveDialog;     Image1: TImage;     Label3: TLabel;     Label4: TLabel;     Label5: TLabel;     Label1: TLabel;     Label6: TLabel;     Label7: TLabel;     BitBtn1: TBitBtn;     N4: TMenuItem;     N5: TMenuItem;     procedure Button1Click(Sender: TObject);     procedure N2Click(Sender: TObject);     procedure N3Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure BitBtn1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;   y: array[1..100] of integer;   s,s1,s2,s3: string;   a,b,i: integer;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject); var m:integer;     m1:string; begin   s1 := '';   m1:=Memo3.Text;   m := Strtoint(m1);   s := Memo1.Text;   y[1] := Strtoint(Memo5.Text);   y[2] := Strtoint(Memo4.Text);   for i := 3 to Length(s) do     y[i] := (y[i-1]+y[i-2]) mod m;   for i := 1 to Length(s) do     s1 :=s1 + chr(ord(s[i]) XOR y[i]);   Memo2.Lines.Add(s1);    end;          procedure TForm1.N2Click(Sender: TObject); begin if fOpenDialog1.Execute then Memo1.Lines.LoadFromFile(fOpenDialog1.FileName); end;    procedure TForm1.N3Click(Sender: TObject); begin if fSaveDialog1.Execute then Memo7.Lines.SaveToFile('Шифр.txt'); end;    procedure TForm1.Button2Click(Sender: TObject);  var m:integer;  begin  s2 := '';  m := Strtoint(Memo3.Text);  s3 := Memo2.Text;  y[1] := Strtoint(Memo5.Text);  y[2] := Strtoint(Memo4.Text);  for i := 3 to Length(s3) do  y[i] := (y[i-1]+y[i-2]) mod m;  for i := 1 to Length(s3) do  s2 :=s2 + chr(ord(s3[i]) xor y[i]);  Memo7.Lines.Add(s2);  end;    procedure TForm1.BitBtn1Click(Sender: TObject); begin Application.Terminate; end;    end.

[@Rafa3L]

Сообщение от Mattew

В программе я заполняю значения в Memo,как эти значения вписать в программу,чтобы не писать сто раз?..

Object Inspector > Memo1 > Properties > Lines: ЛКМ > Ввод данных: Ok