Zitat von
3_of_8:
Nein. in geht nur bei Sets.
Das geht auch bei Arrays (seit D2005), allerdings macht es für obige Aufgabe keinen Sinn, da wir hier Bytes vergleichen wollen. Mein Vorschlag:
Delphi-Quellcode:
var
Cmp: Byte;
I: Integer;
begin
Result := True;
if Length(Value) <= 1 then
Exit;
Cmp := Value[Low(Value)];
for I := Succ(Low(Value)) to High(Value) do
begin
if Value[I] <> Cmp then
begin
Result := False;
Break;
end;
end;
end;
@emteg: wie schon gesagt, erst testen, dann reden. Zusätzlich ist Deine Lösung auch noch falsch, da Result undefiniert wäre, wenn nicht alle Werte den gleichen Wert hätten
...
...