Zitat von
Dax:
Delphi-Quellcode:
funtion Check(arr: array of integer): boolean;
var x, y: intger;
begin
Result := false;
for x := 0 to high(arr) - 1 do
for y := x + 1 to high(arr) do
if arr[x] = arr[y] then exit;
Result := true;
end;
Check([i1, i2, i3, i4, i5]);
Sowas geht? Ich dachte, das ginge nur mit Array of Const und Konstanten. Coole Sache
