Stringlist dupOnly

[xtZ]

Zitat von pstruh:

Hallo xtZ, jooo, das ist so eine Sache mit der virtuellen Programmierung im Büro zwischen zwei Besprechungen. Sorry, das war dann wohl doch etwas "zu schnell geschossen". Aber vielleicht hilft es ja doch ein wenig in die richtige Richtung. Der Code von Jens (so ich das richtig sehe) die besonderheit, dass er mit 2 StringListen arbeitet. Vielleicht ist das tatsächlich einfacher (und vielleicht auch schneller). Du wirst schon noch 'ne Lösung bekommen.
Gruß aus Hamburg

Ja das versteh ich. Aber dein Code hat mir ja auch schon den nötigen Denkanstoß gegeben, es zu vollenden.

Delphi-Quellcode:

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

Danke nochmal.