Ich würde gerne mehere Werte auf gleichheit hin überprüfen!
Ungfähr so:
Delphi-Quellcode:
var Value : array [1..3] of Byte;
{...}
if Value[1] = Value[2] = Value[3] then
Showmessage('Subba! Alle Werte sind gleich!')
Da mekert wer rum!
Gibt es schon eine Funktion? Oder muss ich die mir selber machen:
Result := (Value[1] = Value[2]) and (Value[2] = Value[3])
(Aso: Bei 3 Werten geht es noch, aber wer weiß ... wie es nachher bei 10 oder 20 Werten ist?)