Delphi-PRAXiS - Delphi Doppelte Zeilen in Memo finden

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Doppelte Zeilen in Memo finden (https://www.delphipraxis.net/6144-doppelte-zeilen-memo-finden.html)

flow	1. Jul 2003 12:03

Doppelte Zeilen in Memo finden

Hallo,

ich dachte mir ich frag mal nach ob von euch jemand einen guten und schnellen Code hat der doppelte Zeilen in einem Memo findet!?

Gut wärs wenn auch mehrfach duplizierte Zeilen erkennt werden könnten!

Hat jemand soetwas schon mal gemacht?

Wäre für jede Hilfe dankbar!

Danke,

FLOW

Thurgen

1. Jul 2003 12:24

Delphi-Quellcode:

			for i:=laenge-1 downto 0 do

  for b:=0 to i-1 do

   begin

    if liste[i]=liste[b] then

     liste[b]:='';

    end;

Mit dem Code werden aus einem Array doppelte Zeilen gelöscht. Ist auch recht einfach auf ein Memo anzuwenden, allerdings sind Schleifen die ein Memo Feld durchlaufen immer recht langsam.

Luckie

1. Jul 2003 12:26

Lad dir vorher den Inhalt vom Memo in eine StringListe.

flow	1. Jul 2003 13:07

OK, vielen dank ertsmals.

Werds gleich versuchen.

FLOW

flow	1. Jul 2003 14:11

Funktioniert super!

Danke,

FLOW

Alle Zeitangaben in WEZ +1. Es ist jetzt 12:25 Uhr.