Символы
Программа, текст которой приведен в листинге 3.1, выводит таблицу кодировки букв русского алфавита. Вид окна программы представлен на рис. 3.1.
Основную работу выполняет процедура обработки события OnActivate, которая формирует и выводит в поле метки (Label1) таблицу. Событие OnActivate происходит при активизации формы приложения, и поэтому процедура TForm1.FormActivate выполняется автоматически, сразу после появления формы на экране.
Рис. 3.1. Форма приложения во время разработки
Листинг 3.1. Таблица символов.
unit tablsim_;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCTRLs;
type
TForm1 = class(TForm)
Label1: TLabe1;
procedure FormActivate(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormActivate(Sender: TObject);
var
st:string; // таблица формируется как строка символов
dec: byte; // код символа
i,j:integer; // номер строки и колонки таблицы
begin
st: = '';
dec: = 192;
for i: = 0 to 15 do // шестнадцать строк
begin
dec: = i + 192;
for j: = 1 to 4 do // четыре колонки
begin
st: = st+chr(dec)+'-'+IntToStr(dec)+' '; dec: = dec + 16;
end;
st: = st + #13; // переход к новой строке экрана
end;
Label1.caption: = st;
end;
end.
Форма приложения Таблица символов содержит только один компонент – поле метки (Label1). Для того чтобы колонки таблицы имели одинаковую ширину, свойству Label1.Font.Name следует присвоить имя шрифта, у которого все символы имеют одинаковую ширину, например, courier New cyr.
Вид окна приложения во время работы приведен на рис. 3.2.
Рис. 3.2. Форма приложения во время работы