|
(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: Arrays doppelte einträge eliminieren
15. Dez 2009, 06:51
Delphi-Quellcode:
j := 0;
i := 1;
while i < Length (MyArray) - 1 do begin
if MyArray[i] <> MyArray[j] then begin
MyArray[j] := MyArray[i];
inc(j);
SetLength (MyArray, Length (MyArray) - 1);
end;
inc(i);
end;
Getippt und nicht getestet.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|