Guten Morgen,
vielleicht läuft es so besser?
Delphi-Quellcode:
gespeichert := false;
while (not gespeichert) and (i <= form1.StringGrid1.rowcount -1) do
begin
while (not gespeichert) and (x <= form1.stringgrid1.ColCount -1) do
begin
if form1.stringgrid1.cells[i,x] = form1.stringgrid2.cells[i,x] then
begin
gespeichert := true;
end;
x := x + 1;
end;
i := i + 1;
end;
[edit]Code korregiert [/edit]
Grüße
Klaus