HI all,
ich hab den Code nun an meinen Angepasst nur funktioniert dieser leider nicht so wie wer soll.
Es werden von 5 Einträgen 3 als doppelt angezeigt, welche aber garnicht doppelt sein können.
Desweitergen bin ich fast sicher das der Code garnicht alle Einträge durchgeht da z.B.:
Code:
For I := High(A) - 1 downto 0 do
Den letzten Index einfach auslässt.