Mehere Werte auf gleichheit überprüfen

[BenjaminH]

Nehmen wir mal an, D2k5 ist vorhanden, dann wäre diese Lösung doch auch gut:

Delphi-Quellcode:

type TIntegerArray=Array of Integer;
function AreEqual(Values:TIntegerArray):Boolean;
Var Key:Integer;
  FirstKey:Integer;
Begin
  If Length(Values)<1 then
    exit;
  FirstKey:=Values[Low(Values)];
  for Key in Values do
     Result:=Result and (Key=FirstKey);
End;

Oder passt da was nicht?

@sakura: Den Vergleich verstehe ich nicht:
if Length(Value) <= < then wie kann man mit einem Operator vergleichen?