Einzelnen Beitrag anzeigen

Benutzerbild von thomasdrewermann
thomasdrewermann

Registriert seit: 8. Jun 2002
Ort: Herne
575 Beiträge
 
Delphi 3 Professional
 
#5
  Alt 23. Nov 2002, 23:02
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
Sport ist mord...
  Mit Zitat antworten Zitat