Zellen eines Stringgrids vergleichen

[sILeNt heLLsCrEAm]

Hallo Liebe Delphianer,

ich stehe aktuell vor einem Problem mit einem Stringgrid.
Dieses Stringgrid hat mehrere Spalten und auch Zeilen. Die Zeilenanzahl kann unterschiedlich, jedoch maximal 30 Zeilen sein.
Jetzt ist es so das ich von einer bestimmten Spalte die Inhalte folgendermaßen vergleichen will bzw. herausfinden möchte ob ein Zelleninhalt mehrmals vorkommt...

Beispiel anhand von 5 Zeilen, eigentlich 6 Zeilen aber die Überschriften Zeile ist eine "feste" Zeile / Fixed Row

Überschrift

Zeile 1 1234

Zeile 2 4567

Zeile 3 89

Zeile 4 4567

Zeile 5 1234

Ich müsste also den Wert der ersten Zeile (1234) mit allen nachfolgenden Zeilen vergleichen. Ist das abgeschlossen prüfe ich den Inhalt von Zeile 2 (4567) mit den nachfolgenden Zeilen. Bin ich dann bei Zeile 5 angelangt, muss ja nicht mehr geprüft werden weil keine weitere Zeile mehr existiert.
In diesem Beispiel müsste mir also eine Message ausgespuckt werden das Zeile 1 mit Zeile 5 und Zeile 2 mit Zeile 4 übereinstimmt.
Wie könnte denn hier sinnvollerweise eine Funktion aussehen die dies bewerkstelligt?

Vielen Dank schonmal für eure Hilfe...
Viele Grüße

[Delphi.Narium]

Meinst Du sinngemäß sowas? (nur hingedaddelt, sicherlich nicht 100% korrekt)

Delphi-Quellcode:

for i := 1 to AnzahlZeilen - 2 do begin
  for k := i + 1 to AnzahlZeilen - 1 do begin
    if Zelle[SpalteNr,i] = Zelle[SpalteNr,k] then begin
      ShowMessage(Format('Zelle %d und %d sind gleich - %s = %s',[i,k,Zelle[SpalteNr,i],Zelle[SpalteNr,k]]));
    end;
  end;
end;

[Stolle58]

Schau mal hier vielleicht hilft Dir das weiter.

[sILeNt heLLsCrEAm]

Zitat:

Zitat von Delphi.Narium (Beitrag 1545387)

Meinst Du sinngemäß sowas? (nur hingedaddelt, sicherlich nicht 100% korrekt)

Delphi-Quellcode:

for i := 1 to AnzahlZeilen - 2 do begin
  for k := i + 1 to AnzahlZeilen - 1 do begin
    if Zelle[SpalteNr,i] = Zelle[SpalteNr,k] then begin
      ShowMessage(Format('Zelle %d und %d sind gleich - %s = %s',[i,k,Zelle[SpalteNr,i],Zelle[SpalteNr,k]]));
    end;
  end;
end;

Vielen vielen Dank.
Stimmt, es ist nicht 100%ig perfekt, aber das muss es auch nicht.
Das ist genau der Schubs in die richtige Richtung gewesen und entsprechend meinem Programm abgeändert ist es genau das was ich beabsichtige.
In diesem Sinne noch ein schönes restliches Wochenende...

[haentschman]

Zitat:

Stimmt, es ist nicht 100%ig perfekt, aber das muss es auch nicht.

...perfekt wäre es, wenn du nicht das visuelle Control zum Suchen und Vergleichen benutzt sondern die Datenmenge dahinter (aus der du das Grid gefüllt hast). :zwinker: