Hallo
Ich habe hier diesen Quelltext aber kann damit nix anfangen
kann mir den jemand erkläre?
Delphi-Quellcode:
s:='';
for index:=1 to anz do
begin
farbe:=image1.canvas.pixels[index,0]; //showmessage(inttostr(farbe));
b:=farbe and $ff; ch :=chr(b);
s:=s+ch;
b:=(farbe and $ff00) shr 8; ch :=chr(b);
s:=s+ch;
b:=(farbe and $ff0000) shr 16; ch :=chr(b);
s:=s+ch;