Código Delphi [-]procedure ... var NewStringGrid: TStringGrid; begin NewStringGrid := TStringGrid.Create(Self); try NewStringGrid.Assign(OldStringGrid); ... finally NewStringGrid.Free; end; end;
procedure ... var NewStringGrid: TStringGrid; begin NewStringGrid := TStringGrid.Create(Self); try NewStringGrid.Assign(OldStringGrid); ... finally NewStringGrid.Free; end; end;