제가 너무 간단하게 생각하나요?
그냥, 스트링 그리드 두개를 각 셀별로 서로 비교해서 다른 부분만 대입해주면 되는 거 아닌가요?
코딩해도 몇줄 안될거 같은데요.
참고 하세요.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
nCols, nRows : Integer;
begin
for nRows := 0 to StringGrid1.RowCount - 1 do begin
for nCols := 0 to StringGrid1.ColCount - 1 do begin
if (stringGrid1.Cells[nCols,nRows]<>StringGrid2.Cells[nCols, nRows]) then begin
StringGrid2.Cells[nCols, nRows] := stringGrid1.Cells[nCols,nRows];
end;
end;
end;
end;
제가 너무 간단하게 생각하나요?
그냥, 스트링 그리드 두개를 각 셀별로 서로 비교해서 다른 부분만 대입해주면 되는 거 아닌가요?
코딩해도 몇줄 안될거 같은데요.
참고 하세요.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
nCols, nRows : Integer;
begin
for nRows := 0 to StringGrid1.RowCount - 1 do begin
for nCols := 0 to StringGrid1.ColCount - 1 do begin
if (stringGrid1.Cells[nCols,nRows]<>StringGrid2.Cells[nCols, nRows]) then begin
StringGrid2.Cells[nCols, nRows] := stringGrid1.Cells[nCols,nRows];
end;
end;
end;
end;