hallo,
ich würde gerne mehrere werte auf gleichheit prüfen lassen ...
hab mir auch was ausgedacht aber es gibt doch bestimmt einen einfacheren weg,oder?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
type Tdrueber = array [1..22] of boolean;
var drueber:Tdrueber; num,passt:integer; t:string;
begin
drueber[1]:= true;
drueber[2]:= true;
drueber[3]:= true;
drueber[4]:= true;
drueber[5]:= true;
drueber[6]:= true;
drueber[7]:= true;
drueber[8]:= true;
drueber[9]:= true;
drueber[10]:= true;
drueber[11]:= true;
drueber[12]:= true;
drueber[13]:= true;
drueber[14]:= true;
drueber[15]:= true;
drueber[16]:= true;
drueber[17]:= true;
drueber[18]:= true;
drueber[19]:= true;
drueber[20]:= true;
drueber[21]:= true;
drueber[22]:= true;// hab nur zum testen mal alle geschrieben
for num:= 1 to 22 do
begin
if true = drueber[num] then passt:= passt + 1 else passt := passt +15;
end;
if 22 = passt then t:=('alle gleich') else t:=('stimmt nicht');
button36.Caption:= t;
end;