如何把下列这段二值化代码只取两种颜色(黑、白) procedure TForm1.Button1Click(Sender: TObject); const clWhite: cardinal=0; // $FF clBlack: cardinal=255 ; //$FF0000 var rgb: integer; i, j, l: Integer; begin l:=((255 255 255) *TrackBar1.Position) div 100; for i := 0 to image1.picture.bitmap.height-1 do begin rgb := integer(image1.picture.bitmap.scanline[i]); for j := 0 to image1.picture.bitmap.width-1 do begin if pbyte(rgb)^ pbyte(rgb 1)^ pbyte(rgb 2)^>l then move(clBlack, pbyte(rgb)^, 1) else move(clWhite, pbyte(rgb)^, 1); inc(rgb, 1); end; end; form1.Refresh; end;