scheint einfach, aber der schein trügt ...

[thomasdrewermann]

Hi Helmut,
ich denke von der Logik her sollte diese Umsetzung klappen:

Delphi-Quellcode:

function testewuerfel(wurf: array  of wuerfelRecord):boolean;
var i,i1:integer;
begin
result:=true;
for i:=0 to length(wurf)-1 do
        if wurf[i].selected then
                for i1:=0 to length(wurf)-1 do
                        if wurf[i1].selected then
                                if wurf[i].zahl<>wurf[i1].zahl then
                                result:=false;
end;

Der Aufruf funktioniert dann mit:

Delphi-Quellcode:

if testewuerfel(wuerfel) then
begin
//Das was dann passieren soll, wenn alle gleich sind
end else
Showmessage('Alles Falsch!');

PS: Was proggst du gerade?

MFG
Thomas