ich habe folgenden Funktion geschrieben:
Code: Alles auswählen
type
TPCX = Class
private
fEGAColors: Array[0..15] Of TColor;
Procedure InitEGAColors(Const Palette: Array Of uint8); // upcx.pas(45,35) Hint: Value parameter "Palette" is assigned but never used
public
end;
procedure TPCX.InitEGAColors(const Palette: array of uint8);
Var
i: Integer;
Begin
// The Palette is coded in "RGB"
// Convert to 16 TColor values "BGR"
For i := 0 To 15 Do Begin
fEGAColors[i] := Palette[i * 3] Or (Palette[i * 3 + 1] Shl 8) Or (Palette[i * 3 + 2] Shl 16);
End;
End;
Wie muss ich das Declarieren / Implementieren, dass die Warnung nicht mehr kommt ?upcx.pas(45,35) Hint: Value parameter "Palette" is assigned but never used