Кодирование информации

@Night_Chaser · Регистрация: 28.10.2015

Студворк — интернет-сервис помощи студентам

Всем привет! Вот есть программа отчасти не исправная, помогите разобраться в чем у меня ошибка и как ее исправить. Всем буду благодарен за помощь.

Delphi
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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
unit Unit1;
 
interface
 
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, Grids, ExtCtrls;// mat_code {Может быть не то подключил???} , XPMan;
 
type
  TForm1 = class(TForm)
    CoolBar1: TCoolBar;
    Panel6: TPanel;
    Label3: TLabel;
    edText: TEdit;
    memAnalyze: TMemo;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    sgShannonFano: TStringGrid;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    memShannonFano: TMemo;
    sgHuffman: TStringGrid;
    memHuffman: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure edTextChange(Sender: TObject);
  private
    { Private declarations }
    {Подскажите как правильно это реализовать?!}
    FModeler: TMatModeler;
    FCoderShannonFano: TMatCoder;
    FCoderHuffman: TMatCoder;
    procedure CreateCoderInfo(Coder: TMatCoder; StringGrid: TStringGrid; Memo: TMemo);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses math;
{$R *.dfm}
 
procedure TForm1.edTextChange(Sender: TObject);
begin
  FModeler.Execute(edText.Text);
  FCoderShannonFano.Execute;
  FCoderHuffman.Execute;
  with memAnalyze, Lines, FModeler do
  begin
    Clear;
    Add(Format('Длина сообщения (символов): %d', [Length(FModeler.Text)]));
    Add(Format('Кол-во символов алфавита: %d',[CharsPerTable]));
    Add(Format('Длина символа при равномерном кодировании (бит): %d', [BitsPerChar]));
    Add(Format('Длина сообщения при равномерном кодировании (бит): %d', [BitsPerText]));
      end;
  CreateCoderInfo(FCoderShannonFano, sgShannonFano, memShannonFano);
  CreateCoderInfo(FCoderHuffman, sgHuffman, memHuffman);
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FModeler := TMatModeler.Create;
  FCoderShannonFano := TMatCoderShannonFano.Create(FModeler);
  FCoderHuffman := TMatCoderHuffman.Create(FModeler);
  edText.OnChange(Self);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FModeler.Free;
end;
 
procedure TFormMain.CreateCoderInfo(Coder: TMatCoder; StringGrid: TStringGrid; Memo: TMemo);
var rc, k, i, ci: Integer;
    CharItem: PMatCharTableItem;
    CodeItem: PMatCodeTableItem;
begin
  with StringGrid, Coder do
  begin
    rc := FModeler.CharsPerTable + 1;
    if rc = 1 then
    begin
       Inc(rc);
       Rows[1].Clear;
    end;
 
    RowCount := rc;
    Cells[0, 0] := 'Символ';
    Cells[1, 0] := 'Вероятность';
    Cells[2, 0] := 'Код';
 
    for k := 0 to CodesPerTable-1 do
    begin
      ci := CodeIndex[k];
      CodeItem := CodeTable[ci];
      CharItem := FModeler.CharTable[CodeItem.CharItem.Value];
 
      Cells[0, k+1] := Format('"%s"', [Chr(CodeItem.CharItem.Value)]);
      Cells[1, k+1] := Format('%.5f', [CharItem.Probability]);
      Cells[2, k+1] := Format('%s', [CodeItem.Code]);
      for i := 1 to Length(CodeItem.Code) do Cells[2 + i, k+1] := CodeItem.Code[i];
      for i := Length(CodeItem.Code) + 1 to 32 do Cells[2 + i, k+1] := '';
    end;
  end;
  with Memo, Lines, Coder do
  begin
    Clear;
    Add(Format('Средняя длина кода: %.5f',[AvgCodeLength]));
    Add(Format('Коэффициент относительной эффективности: %.5f',[RatioEffective]));
    Add(Format('Коэффициент сжатия кода: %.5f',[RatioCompression]));
    Add(Format('Длина сжатого сообщения (бит): %d', [BitsPerText]));
  end;
end;
 
 
end.

@northener · 10.10.2016, 23:56

Тебе нужен вот этот модуль

@Night_Chaser · 11.10.2016, 08:28 **[ТС]**

Спасибо большое, но теперь жалуется вот на этот кусочек кода:

Delphi
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
107
108
109
110
111
112
113
114
115
116
117
118
119
unit Unit1;
 
interface
 
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, Grids, ExtCtrls, mat_code, XPMan;
 
type
  TForm1 = class(TForm)
    CoolBar1: TCoolBar;
    Panel6: TPanel;
    Label3: TLabel;
    edText: TEdit;
    memAnalyze: TMemo;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    sgShannonFano: TStringGrid;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    memShannonFano: TMemo;
    sgHuffman: TStringGrid;
    memHuffman: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure edTextChange(Sender: TObject);
  private
    { Private declarations }
    FModeler: TMatModeler;
    FCoderShannonFano: TMatCoder;
    FCoderHuffman: TMatCoder;
    procedure CreateCoderInfo(Coder: TMatCoder; StringGrid: TStringGrid; Memo: TMemo);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses math;
{$R *.dfm}
 
procedure TForm1.edTextChange(Sender: TObject);
begin
  FModeler.Execute(edText.Text);
  FCoderShannonFano.Execute;
  FCoderHuffman.Execute;
  with memAnalyze, Lines, FModeler do
  begin
    Clear;
    Add(Format('Длина сообщения (символов): %d', [Length(FModeler.Text)]));
    Add(Format('Кол-во символов алфавита: %d',[CharsPerTable]));
    Add(Format('Длина символа при равномерном кодировании (бит): %d', [BitsPerChar]));
    Add(Format('Длина сообщения при равномерном кодировании (бит): %d', [BitsPerText]));
      end;
  CreateCoderInfo(FCoderShannonFano, sgShannonFano, memShannonFano);
  CreateCoderInfo(FCoderHuffman, sgHuffman, memHuffman);
end;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FModeler := TMatModeler.Create;
  FCoderShannonFano := TMatCoderShannonFano.Create(FModeler);//жалуется на эту строчку
  FCoderHuffman := TMatCoderHuffman.Create(FModeler);
  edText.OnChange(Self);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FModeler.Free;
end;
 
procedure TFormMain.CreateCoderInfo{<--жалуется на эту строчку}(Coder: TMatCoder; StringGrid: TStringGrid; Memo: TMemo);
var rc, k, i, ci: Integer;
    CharItem: PMatCharTableItem;
    CodeItem: PMatCodeTableItem;
begin
  with StringGrid, Coder do
  begin
    rc := FModeler.CharsPerTable + 1; //жалуется на эту строчку
    if rc = 1 then
    begin
       Inc(rc);
       Rows[1].Clear;
    end;
 
    RowCount := rc;
    Cells[0, 0] := 'Символ';
    Cells[1, 0] := 'Вероятность';
    Cells[2, 0] := 'Код';
 
    for k := 0 to CodesPerTable-1 do
    begin
      ci := CodeIndex[k];
      CodeItem := CodeTable[ci];
      CharItem := FModeler.CharTable[CodeItem.CharItem.Value]; //жалуется на эту строчку
 
      Cells[0, k+1] := Format('"%s"', [Chr(CodeItem.CharItem.Value)]);
      Cells[1, k+1] := Format('%.5f', [CharItem.Probability]);
      Cells[2, k+1] := Format('%s', [CodeItem.Code]);
      for i := 1 to Length(CodeItem.Code) do Cells[2 + i, k+1] := CodeItem.Code[i];
      for i := Length(CodeItem.Code) + 1 to 32 do Cells[2 + i, k+1] := '';
    end;
  end;
  with Memo, Lines, Coder do
  begin
    Clear;
    Add(Format('Средняя длина кода: %.5f',[AvgCodeLength]));
    Add(Format('Коэффициент относительной эффективности: %.5f',[RatioEffective]));
    Add(Format('Коэффициент сжатия кода: %.5f',[RatioCompression]));
    Add(Format('Длина сжатого сообщения (бит): %d', [BitsPerText]));
  end;
end;
 
 
end.

@Night_Chaser · 13.10.2016, 11:45 **[ТС]**

northener, можешь подсказать что еще необходимо сделать для работоспособности программы?

@HiredKiller · 13.10.2016, 13:05

у вас форма TForm1
откуда взялось TFormMain? копипастить без малейшего понимания кода как минимум глупо

п.с воспользуйтесь гугл переводом ошибок
Необъявленный идентификатор: 'TMatCoderShannonFano'

@rusqwe · 13.10.2016, 13:56

Delphi
1
procedure TForm1.CreateCoderInfo{<--жалуется на эту строчку}(Coder: TMatCoder; StringGrid: TStringGrid; Memo: TMemo);

Добавлено через 2 минуты
TMatCoderShannonFano нигде нету, может TMatCoder?

@Night_Chaser · 14.10.2016, 10:23 **[ТС]**

HiredKiller, да, это мой косяк, сам не внимательно посмотрел код, спасибо за доп.подсказку, не могли бы вы еще раз помочь не опытному человеку в написании программы.
Прога запускается с крахом с ошибкой о том что нету доступа к памяти, при вводе каких либо символов в edit вылетает таже самая ошибка, я сам разобраться не смог и прошу Вашей помощи если у Вас есть время на это.

@Night_Chaser · 14.10.2016, 23:22 **[ТС]**

northener, Не могли бы Вы мне подсказать еще раз?

@northener · 15.10.2016, 01:31

Сейчас не могу. Первая подсказка была лёгкой. Там думать не надо было.

Если до понедельника проблема не разрешится, тогда попробую подумать.

@HiredKiller · 15.10.2016, 09:26

del

@Night_Chaser · 17.10.2016, 12:15 **[ТС]**

northener, Будет время, сможете помочь? А то я сам не смог за выходные разобраться с проблемой

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@northener пофигист широкого профиля 4769 / 3204 / 862 Регистрация: 15.07.2013 Сообщений: 18,609
	10.10.2016, 23:56
	Тебе нужен вот этот модуль 1

@Night_Chaser 0 / 0 / 1 Регистрация: 28.10.2015 Сообщений: 32
	13.10.2016, 11:45 [ТС]
	northener, можешь подсказать что еще необходимо сделать для работоспособности программы? 0

@HiredKiller 82 / 82 / 39 Регистрация: 17.02.2016 Сообщений: 464
	13.10.2016, 13:05
	у вас форма TForm1 откуда взялось TFormMain? копипастить без малейшего понимания кода как минимум глупо п.с воспользуйтесь гугл переводом ошибок Необъявленный идентификатор: 'TMatCoderShannonFano' 1

@Night_Chaser 0 / 0 / 1 Регистрация: 28.10.2015 Сообщений: 32
	14.10.2016, 23:22 [ТС]
	northener, Не могли бы Вы мне подсказать еще раз? 0

@northener пофигист широкого профиля 4769 / 3204 / 862 Регистрация: 15.07.2013 Сообщений: 18,609
	15.10.2016, 01:31
	Сейчас не могу. Первая подсказка была лёгкой. Там думать не надо было. Если до понедельника проблема не разрешится, тогда попробую подумать. 1

@HiredKiller 82 / 82 / 39 Регистрация: 17.02.2016 Сообщений: 464
	15.10.2016, 09:26
	del 0

@Night_Chaser 0 / 0 / 1 Регистрация: 28.10.2015 Сообщений: 32
	17.10.2016, 12:15 [ТС]
	northener, Будет время, сможете помочь? А то я сам не смог за выходные разобраться с проблемой 0