Doppelte wörter aus memo Löschen

[RuSsAk]

hi leute
ich brauche mal wieder hilf
hätte vllt jemand für mich ein code zur seite der doppelte wörter aus memo1 löscht?

also z.b
ich
bla
ich
ich
das
ich

das "ich" soll gelöscht werden

wäre dankbar für eure hilfe


mfg,

[fkerber]

Hi!

Also steht in jeder Zeile nur ein Wort?


Grüße, Frederic

[RuSsAk]

Zitat:

Zitat von fkerber

Hi!

Also steht in jeder Zeile nur ein Wort?


Grüße, Frederic

hi fkerber danke für deine schnelle antwort :)


achso sry das ich das nich angeben habe wusste nich das es so wichtig is aber ja pro zeile ein wort

[Jens Hartmann]

Hallo,

such mal nach POS, CompareStr, CompareText etc.

Memo.Lines


Vieleicht hilft dir das ja.

MFG

Jens

[Jens Hartmann]

Achso,

und schau mal hier...

Doppelte Zeilen in Memo löschen

MFG

jens

[RuSsAk]

Zitat:

Zitat von Jens Hartmann

Hallo,

such mal nach POS, CompareStr, CompareText etc.

Memo.Lines


Vieleicht hilft dir das ja.

MFG

Jens

ich habe hier was gefunden könntest du mir vllt helfen das so zu machen das es aufs memo zugreift?
`

Delphi-Quellcode:

function CompareText(const S1, S2: string): integer;
var s1,s2 : string;
        i : integer;

s1:='Delphi';
s2:='Programming';
i:= CompareText(s1,s2);
//i<0 because D is less than P in ascii order.

[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

[RuSsAk]

Zitat:

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 :) :dp:


schön abend noch :cheers:

[Lannes]

Hallo,

die Möglichkeit finde ich auch immer schön:

Delphi-Quellcode:

for z := Pred(Memo.Lines.Count) downto 1 do 
  if Memo.Lines.IndexOf(Memo.Lines[z]) <> z then
    Memo.Lines.Delete(z);

[himitsu]

ich würde das .BeginUpdate und .EndUpdate noch mit in KillDuplicates reinverschieben
und es könnte nicht schaden, wenn man dieses dann auch noch mit Try-Finally absichert.


und warum gibt es nicht sowas wie Self für das With-Do?
dann könnte man es ohne Variabe und inplace gleich so machen

Delphi-Quellcode:

with TStringList.Create do
  try
    Duplicates := dupIgnore;
    Assign(Memo1.Lines);
    Memo1.Lines.Assign({self});
  finally
    Free;
  end;