in TStringlist doppelteilstrings filtern

sintec · Beiträge: 133

Hallo Leuts,

Ich habe ein Problem und zwar habe ich ein TStringList wo ich natürlich strings drin habe auf doppelte Teilstinz filtern.
die TStringList sieht z.B. so aus:

markieren

Quelltext

1:
2:
3:
4:
5:
6:

Georg Müller
Franz Sowieso
Peter Sonstnochwie
Franz Egal
Georg Cheater
Franz Derdritte

Jetzt möchte ich, dass er nach Vornamen Doppeleinträge (bzw. Mehrfacheinträge) sucht und die komplette Strings dann in eine andere TStringList kopiert so, dass die TStringlist dann so aussieht:

markieren

Quelltext

1:
2:
3:
4:
5:

Georg Müller
Georg Cheater
Franz Sowieso
Franz Egal
Franz Derdritte

Sitze schon seit ca 2 Wochen an dem Algorithmus und komme nicht drauf.

Kann mir bitte jemand helfen?

EDIT:
Die function um Teilstrings rauskopieren habe ich schon.

Martin1966 · Beiträge: 1068 Win 2000, Win XP Delphi 7, Delphi 2005

Würde es sich nicht anbieten die Strings einfach zu sortieren? :gruebel:

_________________
Ein Nutzer der Ecke ;-)

Gausi · Verfasst: Mi 11.07.07 11:44

Jup, ich würde auch erstmal die Liste sortieren, und die Liste dann von vorne nach hinten durchgehen (oder andersrum). Dann den i-ten Eintrag mit dem i+1-ten derart vergleichen, dass ich mit pos und copy den Teil bis zum ersten Leerzeichen bekomme und das auf Gleichheit überprüfen. Bei Doppel-Vornamen wie

markieren

Quelltext

1:
2:
3:

Karl Heinz Quietschboy
Karl Gustaf Quietschboy
Karl Otto Quietschboy

muss man sich ggf. noch was einfallen lassen, je nachdem, ob man die drin haben möchte oder nicht.

_________________
We are, we were and will not be.

wwwdirk · Beiträge: 38 D6 Prof / D2005 Prof

So was in der Art:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function DoppelteVornamen(aList: TStringList): TStringList;
var
  i : integer;

  function GetVorname (const aString: string): string;
  begin
    result := LeftStr (aString, Pos (' ', aString));
  end;

begin
  result := TStringList.Create;
  aList.Sort;
  for i := 1 to aList.Count-1 do
    if StrComp (GetVorname (aList.Strings[i-1]), GetVorname (aList.Strings[i])) = 0 then
    begin
      if i = 1 then
        result.Add (aList.Strings[0]);
      result.Add (aList.Strings[i]);
    end;
end;

sintec · Beiträge: 133

lol
und ich versuche hier Algorithmen zu entwickeln wenns viel einfacher geht

vielen dank an alle, den Rest bekomme ich schon selber raus.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme