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:

type
  PARGB = ^TARGB;
  TARGB = packed record
    case Byte of
      1: (B, G, R, A: Byte);
      2: (Color: LongWord);
  end;

function YUVtoARGB(Y, U, V: Byte): TARGB;
var ValueY, ValueU, ValueV, ValueR, ValueG, ValueB: Integer;
begin
  ValueY:=Y-16;
  ValueU:=U-128;
  ValueV:=V-128;

  ValueR:=(298*ValueY              + 409*ValueV + 128) div 256;
  ValueG:=(298*ValueY - 100*ValueU - 208*ValueV + 128) div 256;
  ValueB:=(298*ValueY + 516*ValueU              + 128) div 256;

  with Result do begin
    if ValueR>255 then R:=255 else if ValueR<0 then R:=0 else R:=ValueR;
    if ValueG>255 then G:=255 else if ValueG<0 then G:=0 else G:=ValueG;
    if ValueB>255 then B:=255 else if ValueB<0 then B:=0 else B:=ValueB;
    A:=0;
  end;
end;

procedure I420toARGB(Src: PByte; Dest: PARGB; Width, Height: Integer);
var
  x, y, n: Integer;
  pY, pU, pV: PByte;
begin
  pY:=src;
  pU:=PByte(Integer(Src)+Width*Height);
  pV:=PByte(Integer(pU)+Width*Height div 4);
  for y:=1 to Height div 2 do
    for n:=1 to 2 do begin
      for x:=1 to Width div 2 do begin
        Dest^:=YUVtoARGB(pY^, pU^, pV^);
        Inc(Dest);
        Inc(pY);
        Dest^:=YUVtoARGB(pY^, pU^, pV^);
        Inc(Dest);
        Inc(pY);
        Inc(pU);
        Inc(pV);
      end;
      if n=1 then begin
        Dec(pU, Width div 2);
        Dec(pV, Width div 2);
      end;
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

Vergleich für P4 GCC-Compiler
Floating-Point Code  39.5
Integer Multiplication  30.0
No Multiplications 12.6
No Conditionals 8.6
Four Pixels 7.2
Assembly Code 4.4
Non-Temporal Stores 3.5
Two Pixels 2.8