Ver Mensaje Individual
  #1  
Antiguo 20-04-2006
Perio Perio is offline
Miembro
 
Registrado: abr 2005
Ubicación: Argentina
Posts: 71
Reputación: 20
Perio Va por buen camino
Red face Array Variant...

Hola:
Como estan, les comento mi problema, estoy trabajando con arreglos de tipo Variant y me pasa lo siguiente:

*Creo y cargo mi arreglo:
Código Delphi [-]
  //Arreglo variable
  arrData := VarArrayCreate([1, MaximoFilas, 1, MaximoColumnas], varVariant);
  //Datos de la grilla 'PlanillaDetallada1'
  for i := 0 to MaximoFilas do
    for j := 1 to MaximoColumnas do
      arrData[i + 4, j] := IfThen((PlanillaDetallada1.Cells[j, i] = '') and (j > 2),
                           '0,00', PlanillaDetallada1.Cells[j, i]);

* Despues de esto realizao calulos sobre los datos y otras cosas, por ultimo a siertas celdas necesito agregarle el string '%':
Código Delphi [-]
procedure TFrmOtrosReportesCargasExpo.colocarProcentajes(arrData: Variant);
begin
  arrData[1,1] := arrData[1,1] + '%';
  arrData[1,1] := arrData[1,1] + '%';
end;

* Pero esto no me da resultado, no me concatena nada, tambien probe cosas como:
Código Delphi [-]
  arrData[1,1] := VarTypeAsText(arrData[1,1]) + '%';
  arrData[1,1] := VarToStr(arrData[1,1]) + '%';

No se si fui claro, desde ya, y como siempre muchas gracias...
Saludos
Perio
__________________
Responder Con Cita