Ver Mensaje Individual
  #2  
Antiguo 25-01-2017
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Tenes que usar el evento OnGetValue

Ejemplo con un TGrid con dos columnas de tipo TStringColumn creadas en tiempo de diseño

Código Delphi [-]
type
  TForm1 = class(TForm)
    Grid1: TGrid;
    StringColumn1: TStringColumn;
    StringColumn2: TStringColumn;
    procedure FormCreate(Sender: TObject);
    procedure Grid1GetValue(Sender: TObject; const ACol, ARow: Integer; var Value: TValue);
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

const
  Datos: array[0..1, 0..4] of string =
  (('A', 'B', 'C', 'D', 'E'),
  ('Uno', 'Dos', 'Tres', 'Cuatro', 'Cinco'));

procedure TForm1.FormCreate(Sender: TObject);
begin
  Grid1.RowCount := 5;
end;

procedure TForm1.Grid1GetValue(Sender: TObject; const ACol, ARow: Integer; var Value: TValue);
begin
  Value := TValue.From<string>(Datos[ACol, ARow]);
end;
Responder Con Cita