8 replies to this topic

[enecumene]

Tengo una propiedad de tipo TSTrings lo cual intento cargar algún dato desde la base de datos, el problema surge si el dato es nulo o una cadena vacía me lanza una excepción address ex00000000, ya he intentado toda la variante posibles y todas me lanzan una excepción, el campo de la base de datos en cuestión es del tipo Blob de texto:

delphi

FObservacion := Query.Fields[0].value; //Excepcion
FObservacion.Add(Query.Fields[0].value); //Excepcion
FObservacion.Text := Query.Fields[0].value; /Excepcion
FObservacion.Text := TSTrings(Query.Fields[0]).Text; //Excepcion
FObservacion.AddSTrings(Query.Fields[0].value); //Error de Compilación

 
Todas con su Variante .AsString y AsVariant, ¿Hay forma de resolver ésto?.

[Agustin Ortu]

if not TField.IsNull then

[enecumene]

Me hice una función un tanto chapucero pero me resolvió el problema de momento, aún así espero por sus soluciones:
 

delphi

function StrToTStrings(Str: String): TStringList;
var Lista: TStringList;
begin
  Lista := TSTringList.Create;
 
  if Str <> '' then
    Lista.Text := Str
  else Lista.Clear;
 
  Result := Lista;
 
end;

[enecumene]

O la de Agustín

[Agustin Ortu]

igual yo odio los chequeos por null. La idea sino entendí mal es cargar un blob de texto en un objeto TStrings? Y si el campo es null dejas el TStrings.Text vacío?

[genriquez]

Ojo que el Tipo TStrings es una clase base y tiene varias funciones abstractas, por lo cual no se debe utilizar directamente,  en este caso te funciona porque retorna un TStringList.
 
La forma correcta de utilización es:

delphi

Var
  Objeto : TStrings;
Begin
   Objeto := TStringList.Create;
   Objeto.Add('valor');
   Objeto.Text := 'Valor';
   Objeto.CommaText := 'valor1,valor2,valor3';
  
   If Objeto.Count > 0 then
      Objeto[0] := 'Valor';
 
  ShowMessage(Objeto.Text);
End;

[sir.dev.a.lot]

Hola,.

 

Una observacion.   Veo que en sus funciones y en los ejemplos mostrados, crean los objetos, pero no los Liberan.

 

Me gustaria recomendar los Bloques TRY ... FINALLY  .... END, con esto se asegura un buen metodo de liberacion de los recursos ya usados.

 

"Existen mas 5,000 formas distintas de resolver un problema, No te preocupes mucho... Solo necesitas una"....

 

Disculpen mi Intrusion en el tema,

[egostar]

 

Disculpen mi Intrusion en el tema,

 

Ninguna aportación es una intrusión.

 

Saludos

[genriquez]

muy cierto sir.dev.a.lot nunca olvidar eso, muy buen aporte, a menos que trabajes con interfaces.

 

Saludos.