Sumar edits

[mramos65]

Hola:

Trate de hacer lo que indican del uso de:

StrToFloatDef

en Delphi 7 sin embargo me da error al ajecutarlo

[Error] Principal.pas(829): There is no overloaded version of 'StrToFloatDef' that can be called with these arguments

podrian ayudarme uso delphi 7 y tablas *.dbf

quiero realizar la suma de una columna de datos que puede incluir datos vacios.

SALUDOS

[Jose Roman]

Los campos vacios se muestran como null?, si es asi debes hacer una conversion como en SQL para que se pueda utilizar en una suma los campos NULL

[Casimiro Notevi]

Código SQL [-]
select campo from tabla where campo is not null

[[nlsgarcia]]

mramos65,

Empezado por mramos65

...quiero realizar la suma de una columna de datos que puede incluir datos vacíos...

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const
   A1 : Array[0..9] of String = ('1,11','','3,13','4,14','','6,16','7,17','','9,19','10,0');

var
   Sum : Double;
   i : Integer;

begin

   Sum := 0;

   for i := Low(A1) to High(A1) do
      Sum := Sum + StrToFloatDef(A1[i],0);

   ShowMessage(Format('La suma de A1 es %n',[Sum]));

end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, permite sumar un arreglo de strings con valores numéricos aunque este tenga valores nulos.

Espero sea útil

Nelson.

[ecfisa]

Hola mramos65

Empezado por mramos65

...
[Error] Principal.pas(829): There is no overloaded version of 'StrToFloatDef' that can be called with these arguments

El error que mencionas se presenta por que con toda seguridad estas usando un parámetro de tipo incorrecto en la función StrToFloatDef.

Dado que la función StrToFloatDef está declarada de este modo,

function StrToFloatDef(const S: string; const Default: Extended): Extended; overload;

te pongo dos casos de ejemplo que provocarían ese error:

Código Delphi [-]
var
  r: Double;
...
{1}  re:= StrToFloatDef(Table1.FieldByName('ItemsTotal').AsFloat, 0 );    //  AsString (correcto)
{2}  re:= StrToFloatDef(Table1.FieldByName('ItemsTotal').AsString, '0' ); // 0 (correcto)

Saludos