Naja, nen richtigen Vorschlag hab ich nicht, aber optimier mal deine for Schleifen
Delphi-Quellcode:
for x := 1 to "Groesse des Array" do
...
for y := i+1 to "Groesse des Array" do
...
t := doublette(array[x],array[y]);
if (t=Festgelegtes t, welches nicht ueberschritten werden darf) then dublette := true //oder aehnlich
end;
end;
end;
verkürzt die 2te for-Schleife, weil wenn array[1] und array[2] verglichen hast, musst du ja nicht später nochmal array[2] mit array[1] vergleichen.
wenn die 2te for-Schleife mit i+1 anfängt sparst du dir das if x<>y
NACHTRAG:
Achja, die erste for-Schleife dann natürlich nur bis "Groesse des Array -1"