Prebacivanje bitmape u nizKoji je najbrzi nacin za prebacivanje vrednosti pixela iz jedne vrste neke slike u niz?
Probao sam
Code:
procedure TForm1.Button1Click(Sender: TObject);
Var i,Row : Integer;
a : Array of Integer;
begin
Row:=0;
SetLength(a,Image1.Width);
For i:=0 To Image1.Width-1 do a[i]:=Image1.Canvas.Pixels[i,Row];
end;
procedure TForm1.Button1Click(Sender: TObject);
Var i,Row : Integer;
a : Array of Integer;
begin
Row:=0;
SetLength(a,Image1.Width);
For i:=0 To Image1.Width-1 do a[i]:=Image1.Canvas.Pixels[i,Row];
end;
ali je prilicno sporo.
