Código Delphi [-] for I := 0 to N do begin for J := 0 to N do begin StringGrid1.Cells[J,I] := ''; end; end;
for I := 0 to N do begin for J := 0 to N do begin StringGrid1.Cells[J,I] := ''; end; end;