Doppelte wörter aus memo Löschen

[RuSsAk]

Zitat von Jens Hartmann:

In #5 steht doch schon eine fertige Lösung.

Delphi-Quellcode:

procedure KillDuplicates(s: TStrings); 
var
  iLow, iHigh: integer;
begin
  for iLow := 0 to s.Count - 2 do
    for iHigh := Pred(s.Count) downto Succ(iLow) do
      if s[iLow] = s[iHigh] then
        s.Delete(iHigh);
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  Memo1.Lines.BeginUpdate;
  KillDuplicates(Memo1.Lines);
  Memo1.Lines.EndUpdate;
end;

MFG

Jens

ok funktioniert alles top vielen dank


schön abend noch