Einzelnen Beitrag anzeigen

ferby

Registriert seit: 15. Aug 2004
Ort: Wien
841 Beiträge
 
Delphi 2010 Enterprise
 
#2

Re: Mehrere Variablen auf Ungleichheit prüfen

  Alt 26. Jun 2006, 01:15
Hallo,


sind die 10 Variabeln in einem Array? Weil dann würd es leicht gehen




Delphi-Quellcode:

// variabelngleich: boolean;
// variabelspeicher: array [1..10] of string;

variabelngleich:=false;

for i:=1 to 10 do
for i2:=1 to 10 do
if i2<>i then
if variabelspeicher[i] = variabelspeicher[i2] then variabelngleich:=true;
Hab's nicht getestet....
  Mit Zitat antworten Zitat