Программирование операций с символами и строками в средах Turbo Pascal и Delphi 6.0: Учебное пособие, страница 2

                                                      Рис.4.1б.

Задача 4.1.2.  Вывод  таблицы символов в среде Delphi.

                                             Решение

1. Открыть новый проект командой главного меню File | New | Application.

2. Поместим на форме Form1  компоненты  в соответствии с макетом.   

                                   Макет задачи  4.1.2.

3. Выделим объект  Form1  (щелкнем  в окне формы) и для свойства Caption(заголовок) установим значение  "Вывод таблицы кодов".

4.Для метки Label1 зададим  свойство Caption "Введите 0 или 128 и нажмите Вывести”, выбрав нужный шрифт (Font, его размер и цвет) .

5. Для  меток Label2 Label3  установите соответственно значения свойств

Начальное значение кода и Код.

6.  Для метки Label4 значение  свойства Caption установим равным пустой строке.

7. Для  однострочного редактора Edit1 значение для свойства Text установите равным пустой строке.

8. Для кнопки Button1 установите значение  свойства Caption Вывести, а кнопки Button2  - Закрыть, а для кнопки Button3 Очистить.

9.  Активизируйте двойным щелчком кнопку Вывести  и в заготовку

обработчика события OnClick (Между строками

      procedure TForm1.Button1Click(Sender: TObject);

и    end;)

поместите текста процедуры:

var

       st:string;     {символ }

       dec:byte; {десятичный код символа}

       i,j:integer;

       num:byte;  {Начальный номер числа}

begin

st:='';

       num:=strtoint(edit1.text);

    for i:=0 to 15 do {шестнадцать строк }

       begin

dec:=i+num;

           for j:=1 to 8 do { восемь колонок }

                begin

                             if dec<10 then st:=st+inttostr(dec)  +'  '+'  ';

                              if (dec>9) and  (dec<=15)then st:=st+inttostr(dec)

                               +' '+'  ';

                              if (dec >15) and (dec<33)then st:=st+inttostr(dec)

                               +'   '+'  ';

                             if (dec>=33) and (dec<=99)then st:=st+inttostr(dec)

                               +'  '+chr(dec)+'  ';

                              if dec>99  then st:=st+inttostr(dec)

                                 +' '+chr(dec)+'  ' ;

                              if dec=38 then st:=st+' ';

dec:=dec+16;

                     end;

st:=st+#13; { 'переход к новой строке экрана ' };

                      label4.Caption:=st;

                      end;

end;

8. Активизируйте двойным щелчком кнопку Закрыть и в заготовку обработчика события OnClick поместите код  Form1.close;

9. Активизируйте двойным щелчком кнопку Очистить и в заготовку обработчика события OnClick поместите код  Label1.Caption:=’’;

10. Сохраните проект при помощи команды  меню File | Save Project As.

 в новую папку, например, C:\MyProject\sim1.

11. Выполните компиляцию программы  и исправьте ошибки. если они будут обнаружены.

12. Запустите программу с помощью клавиши F9.

                             Результат работы программы 4.1.2.

13. Удалите проект

Полный  текст модуля

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Label3: TLabel;

    Label4: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

 var

       st:string;     {символ }

       dec:byte; {десятичный код символа}

       i,j:integer;

       num:byte;  {Начальный номер числа}

begin

    st:='';

    num:=strtoint(edit1.text);

    for i:=0 to 15 do {шестнадцать строк }