AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

prüfen ob alle arrays gleich sind

Ein Thema von davtix · begonnen am 17. Jan 2014 · letzter Beitrag vom 18. Jan 2014
 
davtix

Registriert seit: 29. Mai 2003
Ort: Berlin
87 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

prüfen ob alle arrays gleich sind

  Alt 17. Jan 2014, 18:16
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;
  Mit Zitat antworten Zitat
 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz