Zwei Zeilen miteinander Vergleichen (etwas kompliziert)

[DonPedroFo]

Also soweit so gut, das Prinzip funktioniert

hier mal ein Teil stück

Code:

  for x := 0  to (iCount div 3) -1 do
  begin
     PosA := POS('[',sla.Strings[(x)*3]);
     sZeileA := copy(sla.Strings[(x)*3],0,(PosA-1));

     for i := x  to (iCount div 3) -1 do
     begin

        PosB := POS('[',sla.Strings[(i+1)*3]);
        sZeileB:= copy(sla.Strings[(i+1)*3],0,(PosB-1));


        if sZeileA = sZeileB then
        vari := (i+1)*3;
        begin
           sCopyA := sla.Strings[vari];
           slB.add(sCopyA);
           sCopyB := sla.Strings[vari+1];
           slb.add(sCopyB);
           sCopyC := sla.Strings[vari+2];
           slb.add(sCopyC);
        end;
     end;
  end;

Was schon mal funktioniert ist, das ich jede Zeile mit jeder Zeile vergleichen kann.
Allerdings kommt auch folgender "Fehler" vor. z.B

Zeile0: Wert1...
...
Zeile10: Wert1....
...
Zeile28: Wert1....

Jetzt wird in meinen durchläufen erstmal die Zeile 0 mit anderen Zeilen verglichen was soweit gut funktioniert,
und am Ende werden mir die anderen zwei Zeilen als Ergebnis gespeichert.

Aber nach ein paar durchläufen wird auch der Wert der Zeile10 mit dem Wert der Zeile28 verglichen, da das Ergebnis natürlich stimmt, wird mir das auch als Ergebnis gespeichert
was an sich ja richtig ist, aber ich habe ja schon davor verglichen das die Zeile0 = Zeile10 = Zeile28 ist, somit wird mir alles irgendwann doppelt und dreifach angezeigt.
usw.


ich hoffe ihr könnt mir folgen.