Items aus einem Memo-Feld sortieren

phoffi1 · Hält's aus hier Beiträge: 4 Win XP Delphi versch. Vers.

Hallo,

es geht um folgendes:
Ich habe ein Memo-Feld mit verschiedenen Seriennummern:

z.B.:

|--------|
| E604 |
| E603 |
| E609 |
| E603 |
| E609 |
| E612 |
| E642 |
| E604 |
| E603 |
| E612 |
|--------|

Nun möchte ich die Seriennummern sortieren, sodass jede Seriennummer nur einmal vorkommt.
Dies soll dann in einem zweiten Memo-Feld ausgegeben werden.
Das würde dann z.B. so aussehen:

|--------|
| E603 |
| E604 |
| E609 |
| E612 |
| E642 |
|--------|

Ich hab schon vieles probiert aber brauche Hilfe.
Danke
Patrick

Marco D. · Verfasst: Do 13.07.06 18:24

Du gehst in einer for-Schleife alle durch und prüfst dann innerhalb dieser mit einer zweiten Schleife auf Ungleichheit, bei Bedarf schreibst du dann in Memo2. Fragen?

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Narses · Verfasst: Do 13.07.06 18:26

Moin!

Vorschlag:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  SL: TStringList;

begin
  SL := TStringList.Create;
  SL.Sorted := TRUE;
  SL.Duplicates := dupIgnore;
  SL.AddStrings(Memo1.Lines);
  Memo2.Lines.Assign(SL);
  SL.Free;

Ungetestet, sollte aber gehen.

cu
Narses

//EDIT: Ansonsten kannst du auch die Duplikate im Original-Memo entfernen: guckst du

_________________
There are 10 types of people - those who understand binary and those who don´t.

phoffi1 · Hält's aus hier Beiträge: 4 Win XP Delphi versch. Vers.

Danke, hat alles geklappt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme