nuxbaster,
Cita:
Empezado por nuxbaster
...estoy haciendo una aplicación...toma el peso de una bascula y muestra los datos en un ListBox...quiero que me vaya mostrando la suma de los pesos...cada que vaya añadiendo un peso nuevo se vaya actualizando...
|
¡Bienvenido al Club Delphi!
Revisa este código:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Math;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Label1: TLabel;
Button1: TButton;
Edit1: TEdit;
Label2: TLabel;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
Edit1.ReadOnly := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Peso : Double;
begin
Peso := RoundTo(Random(100) + Random,-2);
ListBox1.Items.Add(FormatFloat('0.00',Peso));
Edit1.Text := FormatFloat('0.00',StrToFloatDef(Edit1.Text,0) + Peso);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
Edit1.Text := EmptyStr;
end;
end.
El código anterior en Delphi 7 sobre Windows 7 Professional x32,
permite simular una Balanza Digital, pasar sus valores a un TListBox y visualizar la suma de los mismos de forma automática, como se muestra en la siguiente imagen:
Revisa esta información:
Espero sea útil
Nelson.