Delphi ошибка list index out of bounds 0

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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls;
 
type
 
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    MainMenu1: TMainMenu;
    ColorDialog1: TColorDialog;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
 
    procedure N4Click(Sender: TObject);
  
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Buff: TBitmap;
  mas: array of integer;
  Lmas:integer;
  bw: integer;
  bh: integer;
  LStr: integer;
  Nbit: integer;
  Clr: TColor;
 
implementation
 
{$R *.dfm}
    procedure Ris1;
var
  i, j, m, k, a, b: integer; {ïåðåìåííûå íåîáõîäèìûå â êà÷åñòâå ñ÷åò÷èêîâ, à òàêæå äëÿ ïðîìåæóòî÷íûõ âû÷èñëåíèé}
begin
 
  if Lmas<>0 then {âûïîëíÿåì äåéñòâèÿ ïî îòîáðàæåíèþ äàííûõ, åñëè äëèíà âõîäíîãî ìàññèâà íå ðàâíà íóëþ}
  begin
   PatBlt(Buff.Canvas.Handle,0,0,Buff.Width,Buff.Height,blackness);
{î÷èñòêà áèòîâîé ìàòðèöû ïóòåì ðèñîâàíèÿ íà íåé ÷åðíîãî ïðÿìîóãîëüíèêà}
    Buff.Canvas.Pen.Color := Clr; {çàäàåì öâåò äëÿ ðèñîâàíèÿ åäèíè÷íûõ ýëåìåíòîâ}
    for i := 1 to ((Form1.Width-10) div bh) do {îðãàíèçóåì öèêë îò åäèíèöû äî ÷èñëà ñòðîê, ïîìåùàþùèõñÿ íà ýêðàíå}
    begin
      for m := 0 to bh-1 do {îðãàíèçóåì öèêë â ñîîòâåòñòâèè ñ ìàñøòàáîì ïî âåðòèêàëè}
      begin
        k := i*LStr-1+Nbit; {âû÷èñëÿåì íîìåð ýëåìåíòà â ìàññèâå mas, ÿâëÿâøåãîñÿ ïîñëåäíèì â ïðåäûäóùåé ñòðîêå}
        b := bh*i+m+10; {âû÷èñëÿåì çíà÷åíèå êîîðäèíàòû ïî îñè y îòîáðàæàåìîé ñòðîêè ýëåìåíòîâ}
        for j := 1 to LStr do {îðãàíèçóåì öèêë ïî âñåì ýëåìåíòàì ñòðîêè îò ïåðâîãî äî LStr}
        begin
          inc(k); {âû÷èñëÿåì íîìåð k ýëåìåíòà ìàññèâà mas, êîòîðûé äîëæåí áûòü îòîáðàæåí}
          if k>=Lmas then break; {åñëè î÷åðåäíîé íîìåð ýëåìåíòà ìàññèâà mas ïðåâûøàåò ëèáî ðàâåí äëèíå ìàññèâà Lmas, òî öèêë îòîáðàæåíèÿ áóäåò çàâåðøåí; äàííîå óñëîâèå âûïîëíÿåòñÿ ïðè âûâîäå íà ýêðàí íåïîëíîé ïîñëåäíåé ñòðîêè}
          if mas[k] = 1 then {åñëè k-é ýëåìåíò ìàññèâà åäèíèöà, òî ðèñóåì ëèíèþ äëèíû bw çàäàííûì öâåòîì}
          begin
            a := 10+j*bw;
            Buff.Canvas.MoveTo(a-bw, b);
            Buff.Canvas.LineTo(a, b);
          end;
        end;
      end;
    end;
    Form1.Canvas.Draw(0, 0, Buff); {êîïèðóåì áèòîâóþ ìàòðèöó íà êàíâó ôîðìû}
  end;
end;
 
   procedure Ris2;
var
 i, j, k: integer; {ïåðåìåííûå íåîáõîäèìûå â êà÷åñòâå ñ÷åò÷èêîâ, à òàêæå äëÿ ïðîìåæóòî÷íûõ âû÷èñëåíèé}
begin
 
  if Lmas<>0 then {âûïîëíÿåì äåéñòâèÿ ïî îòîáðàæåíèþ äàííûõ, åñëè äëèíà âõîäíîãî ìàññèâà íå ðàâíà íóëþ}
  begin
   PatBlt(Buff.Canvas.Handle,0,0,Buff.Width,Buff.Height,blackness);
{î÷èñòêà áèòîâîé ìàòðèöû ïóòåì ðèñîâàíèÿ íà íåé ÷åðíîãî ïðÿìîóãîëüíèêà}
    Buff.Canvas.Font.Color := Clr; {çàäàåì öâåò äëÿ îòîáðàæåíèÿ åäèíè÷íûõ è íóëåâûõ ýëåìåíòîâ}
    Buff.Canvas.Brush.Color := clBlack; {çàäàåì öâåò ôîíà}
    for i := 1 to (Form1.Width div 12) do {îðãàíèçóåì öèêë îò åäèíèöû äî ÷èñëà ñòðîê, ïîìåùàþùèõñÿ íà ýêðàíå}
    begin
      k := i*LStr-1+Nbit; {âû÷èñëÿåì íîìåð â ìàññèâå mas ïîñëåäíåãî ýëåìåíòà ïðåäûäóùåé ñòðîêè}
      for j := 1 to LStr do {îðãàíèçóåì öèêë ïî âñåì ýëåìåíòàì ñòðîêè îò ïåðâîãî äî LStr}
      begin
        inc(k); {âû÷èñëÿåì íîìåð k ýëåìåíòà ìàññèâà mas, êîòîðûé äîëæåí áûòü îòîáðàæåí}
        if k>=Lmas then break; {åñëè î÷åðåäíîé íîìåð ýëåìåíòà ìàññèâà mas ïðåâûøàåò ëèáî ðàâåí äëèíå ìàññèâà Lmas, òî öèêë îòîáðàæåíèÿ áóäåò çàâåðøåí; äàííîå óñëîâèå âûïîëíÿåòñÿ ïðè âûâîäå íà ýêðàí íåïîëíîé ïîñëåäíåé ñòðîêè}
        if mas[k] = 0 then Buff.Canvas.TextOut(j*8, 12*i-4, '0')
          else Buff.Canvas.TextOut(j*8, 12*i-4, '1'); {îòîáðàæàåì k-é ýëåìåíò ìàññèâà íà êàíâå ôîðìû}
      end;
    end;
    Form1.Canvas.Draw(0, 0, Buff); {êîïèðóåì áèòîâóþ ìàòðèöó íà êàíâó ôîðìû}
  end;
end;
 
procedure TForm1.N4Click(Sender: TObject);
var
 
    f: file of byte; {ôàéëîâàÿ ïåðåìåííàÿ äëÿ ðàáîòû ñ òèïèçèðîâàííûì ôàéëîì, ñîäåðæàùèì áàéòû}
    i, z: integer; {ïåðåìåííûå, èñïîëüçóåìûå êàê ñ÷åò÷èêè}
    d: byte; {ïåðåìåííàÿ, èñïîëüçóåìàÿ äëÿ ÷òåíèÿ áàéòà èç ôàéëà}
begin
 
  if not OpenDialog1.Execute then exit;{åñëè ôàéë íå âûáðàí, òî ðàáîòà ïðîöåäóðû çàâåðøàåòñÿ}
  try {íà÷àëî áëîêà îáðàáîòêè èñêëþ÷èòåëüíîé ñèòóàöèè; äàæå â ñëó÷àå îøèáêè ïðè âûïîëíåíèè îïåðàòîðîâ ðàáîòû ñ ôàéëîì, áóäóò âûïîëíåíû îïåðàòîðû, ðàçìåùåííûå ïîñëå îïåðàòîðà finally, òî åñòü ôàéë f áóäåò çàêðûò}
    AssignFile(f, OpenDialog1.FileName); {ñ ôàéëîâîé ïåðåìåííîé f ñâÿçûâàåòñÿ ôàéë, âûáðàííûé ñ ïîìîùüþ êîìïîíåíòà OpenDialog1}
    Reset(f); {ôàéë f îòêðûâàåòñÿ äëÿ ÷òåíèÿ}
   
{â ïàíåëè ñòàòóñà îòîáðàæàåì èìÿ îòêðûâàåìîãî ôàéëà}
    i := 0; {óñòàíàâëèâàåì â 0 çíà÷åíèå ñ÷åò÷èêà ñ÷èòàííûõ áèò}
    while not eof(f) do {âûïîëíÿåì öèêë ïîêà íå äîñòèãíóò êîíåö ôàéëà f}
    begin
      Read(f, d); {÷èòàåì èç ôàéëà f áàéò d}
      for z := 0 to 7 do {öèêë çàïèñè áèò áàéòà d â ìàññèâ mas}
      begin
        SetLength(mas, i+1); {óñòàíàâëèâàåì äëèíó ìàññèâà mas ðàâíîé íîìåðó ñ÷èòûâàåìîãî áèòà ïëþñ îäèí}
        mas[i] := (d shr z) and 1; {ïðè ðàçëè÷íûõ z ïîñëåäîâàòåëüíî ïðèñâàèâàåì î÷åðåäíîìó çíà÷åíèþ ìàññèâà çíà÷åíèå áèòà áàéòà d, ñíà÷àëà ìëàäøåãî áèòà, äàëåå âòîðîãî áèòà è òàê äî ñàìîãî ñòàðøåãî áèòà áàéòà d}
        inc(i); {óâåëè÷èâàåì íà îäèí ñ÷åò÷èê ñ÷èòàííûõ áèò}
      end;
    end;
    Lmas := i; {îáùåå ÷èñëî ñ÷èòàííûõ áèò}
  finally
    CloseFile(f); {çàêðûòèå ôàéëà f}
  end;
  if N5.Checked then Ris1 else Ris2;
 {â çàâèñèìîñòè îò âûáðàííîãî ðåæèìà îñóùåñòâëÿåòñÿ çàïóñê ïðîöåäóðû îòîáðàæåíèÿ â ãðàôè÷åñêîì âèäå Ris1 ëèáî â òåêñòîâîì Ris2; ïóíêò ìåíþ N5, ñîîòâåòñòâåííî, îòâå÷àåò çà âûáîð ãðàôè÷åñêîãî ðåæèìà, N6 - çà âûáîð òåêñòîâîãî ðåæèìà}
end;
 
 
 
initialization
Buff := TBitmap.Create;
  Buff.Width := Screen.Width;
  Buff.Height := Screen.Height;
   finalization
  Buff.Free;
 
 
end.

Сообщ.
#1

,
26.01.10, 12:42

Сообщ.
#2

,
26.01.10, 12:50

Сообщ.
#3

,
26.01.10, 12:52

Сообщ.
#4

,
28.01.10, 09:10

Сообщ.
#5

,
01.02.10, 10:08

Вопрос решен или нет?