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 11: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 11: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 11:26

Lad dir vorher den Inhalt vom Memo in eine StringListe.

flow	1. Jul 2003 12:07

OK, vielen dank ertsmals.

Werds gleich versuchen.

FLOW

flow	1. Jul 2003 13:11

Funktioniert super!

Danke,

FLOW

Alle Zeitangaben in WEZ +1. Es ist jetzt 23:50 Uhr.