So sieht mein Code aus:
Delphi-Quellcode:
var
X, Y: Integer;
S: String;
begin
for Y := 0 to Image1.Height-1 do
ListBox1.Items.Add('');
G.MaxValue := Image1.Height-1;
for Y := 0 to Image1.Height-1 do begin
G.Progress := Y;
S := '';
for X := 0 to Image1.Width-1 do begin
Insert(ColorToHex(Image1.Canvas.Pixels[X, Y]), S, Length(S)-1);
end;
ListBox1.Items[Y] := S;
end;
end;
Eine Zeile von einem 10x10 Pixel Schwarzweißbild:
$000000$00FFFFFF$00000000$00FFFFFF$00000000$00FFFF FF$00000000$00FFFFFF$00000000$00FFFFFF00
Habe ich vielleicht einen Fehler bei Insert, ich konnte nicht finden.