6 replies to this topic

[FGarcia]

Esta mafufo el titulo!

es simple estoy haciendo algo como esto:

delphi

for i := 2 to 9 do
                cuenta := cuenta + StrToInt(StringGrid1.Cells[1,i]);
              StringGrid1.cells[1,10] := IntToStr(cuenta);

sin embargo me genera un error si el valor de la celda del string grid es una cadena vacia (Null) ¿Como deberia validarlo/corregirlo? para evitar el error

Es sabado

zzzzzzz NO! mejor 

[cadetill]

Buenas,

Prueba a hacer una comparación con TryStrToInt

Nos leemos

[FGarcia]

Probe y el compilador me dice que:

"No existe una version de TryStrToInt que pueda ser llamada de esa manera"

delphi

TryStrToInt(StringGrid1.cells[4,i],0)

asi que hice algo como esto:

delphi

if StringGrid1.Cells[4,i] <> ''  then
   cuenta := cuenta + StrToInt(StringGrid1.Cells[4,i])
else
   cuenta := cuenta + 0;

y funciono 

Ahora dentro de ese mismo codigo hago otra, en el StringGrid coloco un valor formateado asi:

9,456.98

cuando intento hacer la conversion de StrToFloat me dice que el valor no es valido como flotante, supongo que eso es por el separador de millares ¿ahi que se hace?

saludos

[seoane]

Vamos por partes, en el primer caso creo que lo que buscas es:

delphi

  cuenta:= StrToIntDef(StringGrid1.Cells[4,i],0);

Aunque como ya te dijeron también puedes hacer esto:

delphi

if not TryStrToInt(StringGrid1.Cells[4,i],cuenta) then
  Cuenta:= 0;

Lo mismo para el float:

delphi

  Valor:= StrToFloatDef(StringGrid1.Cells[4,i],0.0);

Incluso también puedes hacer esto:

delphi

  if not TryStrToFloat(StringGrid1.Cells[4,i],Valor) then
    Valor:= 0.0;

Y con respecto al separado decimal, puedes probar algo como esto:

delphi

var
  i: integer;
  Str: String;
  FormatSettings: TFormatSettings;
begin
  Str:= '9,456.98';
  GetLocaleFormatSettings(GetThreadLocale,FormatSettings);
  FormatSettings.DecimalSeparator:= '.';
  for i:= Length(Str) downto 1 do
    if not (Str[i] in ['0'..'9','-','.']) then
      Delete(Str,i,1);
  ShowMessage(FloatToStr(StrToFloatDef(Str,0.0,FormatSettings)));
end;

[FGarcia]

OK, todo solucionado y aprendiendo cosas nuevas!

[Rolphy Reyes]

Saludos.

Un poco tarde pero tienes esta posibilidad también:

delphi

If VarIsNull() then

[FGarcia]

Nunca es tarde, siempre se aceptan nuevas sugerencias. Ademas siempre se aprende algo nuevo.

Gracias!