1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

procedure TForm1.Button5Click(Sender: TObject);
var
len_r, len_g, len_b, i, h, w, n:integer;
dc_r_kanal, dc_g_kanal, dc_b_kanal: TKanal;
begin
IF (OpenDialog1.Execute) THEN
  Begin
    Button2.enabled := TRUE;
    Button3.enabled := TRUE;
    Label1.Caption:= OpenDialog1.Filename + ' geladen.';
    Stream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
    try
      Stream.Read(h, SizeOf(h));
      Stream.Read(w, SizeOf(w));
      Stream.Read(len_r, SizeOf(len_r)); // Länge der dyn. Arrays lesen
      Stream.Read(len_g, Sizeof(len_g));
      Stream.Read(len_b, Sizeof(len_g));

      SetLength(rle_r_kanal, len_r);  // Länge der dyn. Arrays setzen
      SetLength(rle_g_kanal, len_g);
      SetLength(rle_b_kanal, len_b);

      FOR i:=0 to high(rle_r_kanal) DO // Arrays befüllen
          Stream.Read(rle_r_kanal[i], SizeOf(rle_r_kanal[i]));
      FOR i:=0 to high(rle_g_kanal) DO // Arrays befüllen
          Stream.Read(rle_g_kanal[i], SizeOf(rle_g_kanal[i]));
      FOR i:=0 to high(rle_b_kanal) DO // Arrays befüllen
          Stream.Read(rle_b_kanal[i], SizeOf(rle_b_kanal[i]));
    finally
      Stream.Free;
    End;
  dc_r_kanal:=rle_decompress(rle_r_kanal);
  dc_g_kanal:=rle_decompress(rle_g_kanal);
  dc_b_kanal:=rle_decompress(rle_b_kanal);
  meinBild:= TBitMap.Create;      // BitMap erstellen
  meinBild.Height:= h;
  meinBild.Width:= w;
  //arrayoutput(dc_r_kanal);
  n:=0;
  FOR h:=0 to meinBild.Height-1 DO
    Begin
      p:= meinBild.ScanLine[h];
      FOR w:=0 to meinBild.Width-1 DO
        Begin
          p^[1]:=dc_r_kanal[n];
          p^[2]:=dc_g_kanal[n];
          p^[3]:=dc_b_kanal[n];     //Wert des Kanals in dyn. Array speichern
          inc(p);             // Zeiger eins weiter verschieben
          inc(n);             // Zählvariable erhöhen
        End;
    End;
  Image1.Picture.Assign(meinBild);
  Image1.Refresh;
  End;
end;                    

1:
2:
3:
4:
5:

type
  PixArray = array [1..3] of Byte;

VAR
  p: ^PixArray;