Stringlist dupOnly

[xtZ]

Zitat von pstruh:

Habe hier im Büro kein Delphi zur Verfügung, insofern nur so "aus dem Kopf heraus"...

Delphi-Quellcode:

procedure DeleteSingleItems(var List:TStringList);
var Idx : Integer;
begin
 Idx:=1;
 while Idx<List.Count-2 do
  if (List[Idx-1]<>List[Idx]) and
     (List[Idx+1]<>List[Idx]) then List.Delete(Idx)
                              else inc(Idx);
end;

Danke, das funktioniert schon fast, außer das der erste und der letzte Eintrag der Stringlist nicht behandelt/entfernt wird!?