Wenn ich dich richtig verstanden habe hast du ein array (variable) mit records drin die je ein Feld Selected und Zahl enthalten? Dann müsste das so gehen:
Delphi-Quellcode:
var
i,zahl: integer;
begin
for i := 1 to 6 do
if variable[i].selected then
begin
zahl := variable[i].zahl;
break
end; //erste Zahl herausfinden
for i := 1 to 6 do
if (variable[i].selected) and (variable[i].zahl <> zahl) then
begin
tu(irgend,was,wenn);
die(zahlen,unterschiedlich,sind); //hier code bei unterschiedlichen zahlen
exit
end;
tuirgendwasanderes //hier bei gleichen zahlen
end;
Hab ich mir jetzt nur mal so ausgedacht, geht sicher auch andere, vielleicht einfachere Wege
Gruß, Sebastian