|
bueno gente... lo resolvi de esta forma
var
A : Array of TSMDBColumn;
cantidad : integer;
iterator : integer;
color : TColor;
begin
cantidad := SMDBGrid1.Columns.Count;
SetLength(A, cantidad);
For iterator := 0 to cantidad -1 Do
Begin
A[iterator] := TSMDBColumn.Create(nil);
A[iterator].Color := SMDBGrid1.Columns[iterator].color;
A[iterator].Title := SMDBGrid1.Columns[iterator].Title;
End;
//-----------------------------------------
sp := TStoredProcedure.Create('proc_PRUEBA_NICO');
sp.Charge_Parameter( 'cadena','hola');
sp.Charge_Parameter( 'numero',5);
sp.Open;
DataSource1.DataSet := sp.storedProcedure;
//-----------------------------------------
For iterator := 0 to cantidad -1 Do
Begin
SMDBGrid1.Columns[iterator].TextEllipsis := teMiddle;
SMDBGrid1.Columns[iterator].Color := A[iterator].color;
SMDBGrid1.Columns[iterator].Title := A[iterator].Title;
End;
end;
|