Zwei Zeilen miteinander Vergleichen (etwas kompliziert)

[Moombas]

Ich hatte das ein wenig anders im Kopf bei meinem Hinweis aber in der Regel gibt es ja viele Wege nach Rom^^

Ungetestet aber das Prinzip müsste passen:

Delphi-Quellcode:

for x := 3  to iCount -1 do //Zeile 0 - 2 brauchen nicht durchlaufen zu werden, daher mit 
begin
  if x mod 3 = 0 then // Wenn durch 3 ohne Rest teilbar, etwas tun. Sonst einfach weiter. Nachteil: Jede Zeile wird abgelaufen
  begin
    if sla.Strings[x] = sla.Strings[0] then
    begin
      //Vergleich mit Wert aus Zeile 0, wenn gleich, tue etwas
    end else if (sla.Strings[x] = sla.Strings[3]) and
                (x <> 3) then
    begin
      //Vergleich mit Wert aus Zeile 3, wenn gleich, tue etwas aber nur wenn es nicht auch Zeile 3 ist 
    end;
  end;
end;