Hallo,
da wäre eine .Copy Funktion wohl besser.
Delphi-Quellcode:
j := 0;
Für i von 1 bis Fcount
falls Liste[i] <> Liste[i-1] dann
kopiere Liste[i-1] -> Liste[j]
erhöhe j
Setze Fcount auf j
Vielleicht muss man den letzen nochmals gesondert untersuchen, aber es geht ja nur ums Prinzip
Gruß Horst