unit1.pas

个人写的delphi程序

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
//  arr: array of integer;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var i,n: integer;
    sum: double;
      arr: array of integer;
      max,min: integer;
      av: double;
begin
   //In array reinschreiben
   setlength(arr,ListBox1.Items.Count);
   for i:= 0 to  ListBox1.Items.Count-1
   do arr[i]:= strtoint(ListBox1.Items.Strings[i]);

   //Berechnung
   min:=arr[0];
   max:=arr[0];
   sum:=arr[0];

   n:=high(arr);
   for i:=1 to n do
   begin
      if (arr[i]>max) then max:=arr[i]
      else
      if (arr[i]<min) then min:=arr[i];

      sum:= sum+arr[i];
   end;

   av:= sum/(n+1);

   //Anzeigen f黵 Max. und Min.
   panel1.Caption:= inttostr(max);
   panel2.Caption:= inttostr(min);
   panel3.Caption:= floattostr(av);

end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var x: double;
begin
   if Key = VK_RETURN then begin
      ListBox1.Items.Add(Edit1.Text);
      Edit1.Text :='';
    //  x := strtofloat(Edit1.Text);
    // x := x + 3;
    //  ListBox1.Items.Add(FloatToStr(x));
   end;
end;




procedure TForm1.Button2Click(Sender: TObject);
begin
   ListBox1.Items.Clear;
  // arr:=nil;
   panel1.Caption :='';
   panel2.Caption :='';
   panel3.Caption :='';

end;

end.