= 0 to 191 do DcD [i]: = 0;: = 0; i <64 doDec; Dec;
// DcD [i]: = Sym11;
// DcD [i +1]: = Sym12; Sym11 = 0 Then i: = i +1 If Sym11 = 15 Then i: = i + Sym11i: = i +1 + Sym11; [i -1]: = Sym2;; (0);;
0 Then inc (k); (RabF, IntToStr (k)) ; j: = 1 to k doi: = (24 * j) -23 to 24 * j doi> = length (rabfile) then ww [j]: = ww [j] + '0 '[j]: = WW [ j] + RabFile [i];; j: = 1 to k do Begin Lon: = 0; i: = 1 to 24 do Nol [i]: = StrToInt (WW [j] [i]); i: = 24 DownTo 1 do Begin: = Nol [i]; n = 1 Then Inc (Lon, Trunc (exp ((24-i) * Ln (2))));
// Form1.Memo1.Lines.Add (IntToStr (Lon)); (RabF, IntToStr (Lon));; TForm1.LongIntToRabFile; k, i, j: Integer;: Array [0 .. 23] of Integer;: LongInt;, Kol: Integer;, R: String;: = 0; RabFile: =''; (RabF, LengthRabFile); (RabF, Kol); i: = 1 to 24 do Nol [i]: = 0; j
// ToBinTo (PImage.biWidth, 12);
// ToBinTo (PImage.biHeight, 12);;
// ShowMessage ('Наберіться терпіння'); x: = 0 To Trunc ((PImage.biWidth +1)/8) -1 Doy: = 0 To Trunc ((PImage.biHeight +1 )/8) -1 Do (x, y);;;;
// RabFileToLongInt;;; (x, y);;; (RabF); TForm1.DecompressionClick (Sender: TObject); x, y, i, k: Word;: ShortInt;, H : Integer;: ='' ;//OpenDialog1.Filter: = 'Файли для декомпресіі (*. Zo) | *. Zo'; OpenDialog1.Execute Then.Visible: = True;; (RabF, OpenDialog1.FileName); ( RabF);
{k: = 0; i: = 0 To 11 Do Begin Read (F, j); If j = 1 Then Inc (k, Trunc (exp (j * ln (2))) ) End;. Width: = k +6;: = 0; i: = 0 To 11 Do Begin Read (F, j); If j = 1 Then Inc (K, Trunc (exp (j * ln (2)) )) End;. Height: = k +23;
// ShowMessage ('Наберіться терпіння'); x: = 0 To Trunc ((Form2.Image1.Width)/8) -1 Doy: = 0 To Trunc ((Form2.Image1.Height )/8) -1 Do;;;; (x, y); (RabF);
{procedure TForm1.SpeedButton1Click (Sender: TObject); i, j, s: Integer;, Trpr1, Trpr2, Trpr3, Trpr4: String; (RabF, 'c: Abracadabra.txt') ; (RabF);. Top: = 0;. Left: = 0;
// Form1.Memo1.Lines.Add ('*** TOC ******');: ='';: ='';: = 1; i: = 0 To 7 doj: = 0 To 7 do Begin [i, j]: = 0; (s);
// If i + j = 5 Then TOC [i, j]:...
