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...