Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Array Variant... (https://www.clubdelphi.com/foros/showthread.php?t=30842)

Perio 20-04-2006 15:57:54

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


La franja horaria es GMT +2. Ahora son las 21:42:41.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi