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
...
...
Daniel W.
Ich bin nicht zurück, ich tue nur so