Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
15. Apr 2006
Würde ich Definitionssache nennen, wurde aber nicht vorgegeben :mrgreen:
Immer auf a zuzugreifen ist nicht optimal, vorher zwischenspeichern ;)
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
15. Apr 2006
Der funktioniert, nur mir persönlich sind da zuviele Zuweisungen (Result := ...), es wird immer der erste Wert wiederholt verglichen (mit sich selbst). Es geht, ist imo aber etwas irreführend. Ausserdem gehst Du immer das gesamte Array durch, auch wenn bereits nach zwei Werten eine Abweichung besteht, yet 998885 to go ;)
Tippfehler korrigiert ;)
...:cat:...
Forum: Object-Pascal / Delphi-Language
Delphi
by sakura,
15. Apr 2006
Das geht auch bei Arrays (seit D2005), allerdings macht es für obige Aufgabe keinen Sinn, da wir hier Bytes vergleichen wollen. Mein Vorschlag:var
Cmp: Byte;
I: Integer;
begin
Result := True;
if Length(Value) <= 1 then
Exit;
Cmp := Value;
for I := Succ(Low(Value)) to High(Value) do
begin