Dubletten-Funktion: Dubletten in einem Array

[rantanplan99]

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"