Реферат Компресія півтонування

= i +1; s <53 Then TOC [i, j]: = s;: = Trpr + '' + IntToStr (TOC [i, j]);;

{For i: = 0 To 7 doj: = 0 To 7 do Begin [i, j]: = s; s <45 Then s: = s +1;: = Trpr + '' + IntToStr (TOC [i, j]);;}

{Form1.Memo1.Lines.Add (Trpr);. Memo1.Lines.Add ("*** Zgzg ****** ');; i: = 0 to 63 do Trpr1 : = Trpr1 + '

{Form1.Memo1.Lines.Add ('*** DcD ******');; i: = 0 to 63 do Trpr2: = Trpr2 + '' + IntToStr (DcD [ i]);. Memo1.Lines.Add (Trpr2);. Memo1.Lines.Add ("*** NewTOC ****** '); i: = 0 To 7 doj: = 0 To 7 do: = Trpr3 + '' + IntToStr (TOC [i, j]);. Memo1.Lines.Add (Trpr3);. Memo1.Lines.Add ("*** Довжина RabFile ****** ');. Memo1.Lines . Add (IntToStr (Length (RabFile)));

{Form1.Memo1.Lines.Add ('*** RabFile в LongInt ******');;

// Form1.Memo1.Lines.Add ('*** NewRabFile ******');

// LongIntToRabFile;

// Form1.Memo1.Lines.Add (NewRabFile);}

{CloseFile (RabF);

// Zigzag;

// for s: = 0 to 63 do Form1.Memo1.Lines.Add (IntToStr (Zgzg [s]));}

{end; TForm1.SpeedButton2Click (Sender: TObject); i, j, s: Integer;, Trpr1, Trpr2, Trpr3, Trpr4: String;

{BinA: ='';: = StrToInt (Form1.LabeledEdit2.Text); (a, 8);. LabeledEdit1.Text: = BinA;}

{ to 63 do Trpr2: = Trpr2 + '' + IntToStr (DcD [i]);. Memo1.Lines.Add (Trpr2);. Memo1.Lines.Add ("*** NewTOC ****** '); i : = 0 To 7 doj: = 0 To 7 do: = Trpr3 + '' + IntToStr (TOC [i, j]);. Memo1.Lines.Add (Trpr3);;}. Form2: TForm2 = 416 = 233 = False = # 1043 # 1083 # 1103 # 1085 # 1100 '' # 1085 # 1072 '' # 1084 # 1077 # 1085 # 1103 = 304 = 307 = clBtnFace.Charset = DEFAULT_CHARSET.Color = clWindowText.Height =-11.Name = ' MS Sans Serif '. Style = [] = False = 96 = 13Image1: TImage = 64 = 40 = 185 = 161 = True