TStringList auf mehrfach eingetragene Werte prüfen

Killi · Beiträge: 299 Win* D6 Prof

Hi!

Dieser Code hier tut nicht:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

procedure TForm1.Button1Click(Sender: TObject);
var
        Liste: TStringList;
        Del: TStringList;
        i, a, count: integer;
        tmp: string;
        ok: boolean;
begin

        Liste:= TStringList.Create;
        Liste.Clear;
        Del:= TStringList.Create;
        Del.Clear;

        Liste.Add('Steffen');
        Liste.Add('Hans');
        Liste.Add('Steffen');
        Liste.Add('Wurschd');
        Liste.Add('Felix');
        Liste.Add('Felix');

        for a:= 0 to Liste.Count - 1 do
        begin
                tmp:= Liste.Strings[a];
                for i:= a + 1 to Liste.Count - 1 do
                begin
                        if Liste.Strings[i] = Liste.Strings[a] then
                        begin
                                Liste.Delete(i);
                        end;
                end;
        end;

        User.Lines:= Liste;
end;

ist ja klar, da sich Liste.Count ändert....aber egal wie ich denke, es klappt nicht - kommt immer aufs gleiche raus - wie macht ihr das???

Moderiert von Tino: Code- durch Delphi-Tags ersetzt.

GruppeCN · Beiträge: 322

Wie wärs damit:

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender:TObject);
var liste:TStringList;
      s:string;
      i,j:integer;
begin
  liste := TStringList.Create;
  liste.Add('eins');
  Liste.Add('Steffen'); 
  Liste.Add('Hans'); 
  Liste.Add('Steffen'); 
  Liste.Add('Wurschd'); 
  Liste.Add('Felix'); 
  Liste.Add('Felix');

  for i:=0 to liste.count -1 do
  begin
    s := liste[i];
    for j := 0 to liste.count-1 do
    begin
      if s = liste[j] then liste.delete(j);
    end;
  end;
end;

_________________
Warum sind die Sachen, die du suchst, immer da, wo du zuletzt nachsiehst?
Weil du aufhörst zu suchen, wenn du sie gefunden hast.

Killi · Beiträge: 299 Win* D6 Prof

das ist doch haargenau das gleiche wie bei mir!
Liste out of Bounds - hat nicht mehr soviele EInträge, weil ein paar gelöscht werden - die FOR ...TO... schleife ist also nicht mehr aktuell da sie auf mehr zugreift als EInträge NOCH da sind!

Ehemaliges Mitglied Erhaltene Danke: 1

Dann lass sie runterlaufen mit downto.

Ehemaliges Mitglied Erhaltene Danke: 1

Ähem, schon mal was von IndexOf gehört? Ist eine Eigenschaft/Methode von Stringlisten.

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject); 
var 
        Liste: TStringList; 
        i: integer; 
        ok: boolean; 
begin 

        Liste:= TStringList.Create; 
        Liste.Clear; 

        Liste.Add('Steffen'); 
        Liste.Add('Hans'); 
        Liste.Add('Steffen'); 
        Liste.Add('Wurschd'); 
        Liste.Add('Felix'); 
        Liste.Add('Felix'); 
        for i:=0 to Liste.Count -1 do begin
          if Liste.IndexOf(Liste.Strings[i]) >-1 then
           Liste.Delete(i);
        end;

        User.Lines:= Liste; 
end;

_________________
MFG
Michael Springwald, "kann kein englisch...."

Keldorn · Verfasst: Di 24.06.03 21:40

Hallo mimi

den Hinweis von Luckie hast du gelesen? mit deinem Code bekommst du auch eine Exception.
Außerdem werden alle Items gelöscht, da

markieren

Quelltext

1:	Liste.IndexOf(Liste.Strings[i])

immer gefunden wird, du mußt schon prüfen, daß der gefundene Index nicht mit dem Schleifenzähler übereinstimmt.

auf die Schnelle

markieren

Delphi-Quelltext

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

        for i:=Liste.Count -1  downto 0 do
          begin
            if Liste.IndexOf(Liste.Strings[i]) <>i then
              Liste.Delete(i);
          end;

        ListBox1.Items.Assign(Liste);

mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

Ja den hinweise habe ich gelsesn und habe es vergessen zu beachten, passiert mir immer wieder und ich wunder mich nacher warum es nicht geht

dein code wird auch nicht funktioniere, indexOf gibt den gefunden index rauß wird keiner gefunden gibt er null zurück deshalb die if abfrage > 0 wenn dann lösche anderenfalls nicht.
der code sollte aber jetzt gehen(ungetestet)

markieren

Delphi-Quelltext

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

  for i:=Liste.Count -1  downto 0 do  begin 
    if Liste.IndexOf(Liste.Strings[i]) > 0then 
      Liste.Delete(i); 
    end; 

        ListBox1.Items.Assign(Liste); // das ist egal wie man das macht, da gibt es verschiedne wege....

_________________
MFG
Michael Springwald, "kann kein englisch...."

BeniSchindler · Beiträge: 82 Win 2k / suse9.1 D7 Prof / Kylix 3

Lagere die Überprüfung in eine Eigene Prozedur aus, die sich rekursiv aufruft. Dauert ein bischen länger aber ergibt keine Fehlermeldung.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure a ;
var  
        Liste: TStringList;  
        i: integer;  
        ok: boolean;  
begin  

        Liste:= TStringList.Create;  
        Liste.Clear;  

        Liste.Add('Steffen');  
        Liste.Add('Hans');  
        Liste.Add('Steffen');  
        Liste.Add('Wurschd');  
        Liste.Add('Felix');  
        Liste.Add('Felix');  
       
       procedure TestStringList(Liste);

        User.Lines:= Liste;  
end;

procedure TestStringList(AStringList : TStringList);
var
  a,b : index;
begin 
   for a := 0 to AStringListe.Count -1 do begin
     for b := a+1 to AStringListe.Count -1 do begin
        if AStringList.strings[a] := AStringList.strings[b] then begin
           Liste.Delete(i);
           TestStringList(AStringList);
           exit;
         end; 
     end;
   end;
end;

andere möglichkeit ist volgendes:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

 a := -1;
 repeat  
    inc(a);
    tmp:= Liste.Strings[a]; 
    i := a;
    repeat
         inc(i);     
         if Liste.Strings[i] = Liste.Strings[a] then 
         begin 
             Liste.Delete(i);
             dec(i); 
         end; 
    until i =  Liste.Count-1;
 until a = Liste.Count - 2;

_________________
Result := 42; Application.ProcessMessages;

Keldorn · Verfasst: Di 24.06.03 22:01

@mimi

du durchläufst die Liste
du holst dir einen eintrag (index i) aus der liste
jetzt prüfst du mit indexof, ob er schon mal in der liste drin ist. Und das ist er immer, weil du ihn ja grade aus der Liste geholt hast. (2. Stichpunkt)
wenn Indexof ungleich dem index i ist, muß er mind 2x in der liste drin stehen und kann/soll gelöscht werden.

mfg Frank

Moderiert von Tino: List-Tag hinzugefügt.

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

mimi · Beiträge: 3458 Ubuntu, Win XP Lazarus

@Keldorn
und was ist an meiner funktion jetzt falsch ?
die sollte doch jetzt funktionieren.....

_________________
MFG
Michael Springwald, "kann kein englisch...."

Keldorn · Verfasst: Mi 25.06.03 08:14

mimi hat folgendes geschrieben:

@Keldorn
und was ist an meiner funktion jetzt falsch ?
die sollte doch jetzt funktionieren.....

warum probierst Du's einfach nicht aus?

markieren

Delphi-Quelltext

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

Liste.Add('Steffen');   
Liste.Add('Hans');   
Liste.Add('Steffen');   
Liste.Add('Wurschd');   
Liste.Add('Felix');   
Liste.Add('Felix');

du fängst mit 'Felix' hinten an

markieren

Delphi-Quelltext

1:	if Liste.IndexOf(Liste.Strings[i])

ergibt 4, damit fliegt der 1. Felix-eintrag raus. jetzt steht drin:

Zitat:

Steffen
Hans
Steffen
Wurschd
Felix

nächster Eintrag also gehts mit 'Felix' weiter

markieren

Delphi-Quelltext

1:	if Liste.IndexOf(Liste.Strings[i])

ergibt wieder 4 (=dein aktueller Schleifen zähler), damit fliegt er auch wieder aus der Liste, die Einträge, wo der Indexof und schleifenzähler gleich sind, sind nur einmal in der Liste drin und brauchen nicht gelöscht werden. Jetzt klar?

Mfg Frank

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

Ehemaliges Mitglied Erhaltene Danke: 1

So geht´s auch:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

var
  Liste : TStringList;
  i     : integer;
begin
  Liste:= TStringList.Create;

  with Liste do try
    User.Clear;
    User.Lines.BeginUpdate;

    Clear;
    Add('Steffen');
    Add('Hans');
    Add('Steffen');
    Add('Keldorn');
    Add('mimi');
    Add('Wurst');
    Add('Felix');
    Add('Mathias');
    Add('Felix');
    Add('Steffen');
    Add('mimi');
    Add('Keldorn');
    Add('Luckie');

    // Variante #1 -
    // nur die neuen Strings an das Memo weiterreichen
    for i := 0 to Count - 1 do
      if(User.Lines.IndexOf(Strings[i]) = -1) then
        User.Lines.Add(Strings[i]);

    // Variante #2 -
    // die Stringliste selbst "aufräumen" ...
    for i := Count - 1 downto 0 do
      if(IndexOf(Strings[i]) <> -1) and (IndexOf(Strings[i]) <> i) then
        Delete(i);

    // ... und an das Memo weiterreichen
    User.Lines.Text := User.Lines.Text + #13#10 + Text;


    User.Lines.EndUpdate;
  finally
    Free;
  end;
end;

Killi · Beiträge: 299 Win* D6 Prof

@BeniSchindler: Deine Codes sind nicht zu gebrauchen! Der eine gibt WIEDER genau die gleiche Meldung aus und deine Schleife greift auf globale Variablen (Liste) zu, sowas macht man nicht wenn es nicht unebdingt sein muss - und das muss es nicht!

@MathiasSimmack: thx, endlich mal etwas das klappt :-D

BeniSchindler · Beiträge: 82 Win 2k / suse9.1 D7 Prof / Kylix 3

War ein Schreibfehler. Soll natürlich auf AStringList zugreifen. Und diese Variable wird ja übergeben an die Prozedure.

Und das zweite Beispiel sollte ja nicht in eine eigene Prozedur. Ist aber jetzt ja auch schon egal, da du ja jetzt eine funktionierende Prozedure hast.

_________________
Result := 42; Application.ProcessMessages;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme