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?