Tema: Arreglos
Ver Mensaje Individual
  #4  
Antiguo 19-09-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
Primero quiero decirte que soy partidario de evitar utilizar tipos Variant, y segundo que no se que es lo que quieres hacer pero no me parece lógico sacar los datos de un tipo "TString" a algo mas primitivo para trabajarlos, vos sabrás.
Con VarClear limpias la variable completa... no limpias cada item del array!!.. es como si fuera un puntero apuntado a 0.
Si lo que quieres es limpiar los valores de cada item del array, puedes hacer algo como lo que te escribo aqui:
Código:
procedure VarArrayClear(AValue: Variant);
var
  lBound,
  hBound,
  i: Integer;
begin
  if not VarIsArray(AValue) Then
    raise Exception.Create('Invalid Variant Type');

  lBound := VarArrayLowBound(AValue, 1);
  hBound := VarArrayHighBound(AValue, 1);
  for i := lBound to hBound do
    AValue[i] := Null;
end;
Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita