mramos65,
Cita:
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
public
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.