Farbcodes

[F.W.]

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.

[F.W.]

Ich habe die Insert Methode geändert und jetzt geht alles.

Danke!