Arrays sortieren

[Chippie82]

Hallo Leute, ich bin eingefleischter Delphianfänger , meine damit muss versuchen mir alles selbst beizubringen, große Hilfe ist unser Lehrer nicht und hat auch keine lust etwas anständig zu erklären. Nun zu meinem Problem: Das Programm was ihr unten seht ist soweit lauffähig, jetzt möchte ich nur noch meine Messwerte die ich eingebe in meinem Memofeld sortiert angezeigt bekommen. Habe aber keine Idee wie das Funktionieren soll, auch nach stundenlanger Suche im Internet. Ich hoffe ihr könnt mir da weiterhelfen?

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Messwerte: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure MesswerteChange(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Messwert: double;
  Summe:double;
  Anzahl:Integer;
  Mittelwert: Double;
  Haelfte:Double;

implementation


{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var

  code:integer;
begin
   Summe:= 0;
   Anzahl:= 0;
  repeat
  Anzahl:= Anzahl + 1;
  Summe:=Summe+Messwert;
  val (InputBox('MESSWERT','bitte Messwert eingeben', ''),Messwert,code);
  If Messwert >0 then
  Messwerte.lines.add('Nr.'+inttostr(Anzahl)+':'+floattostr(Messwert));


  UNTIL Messwert = 0;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin


Mittelwert:= Summe / (Anzahl-1);
Haelfte := Summe / 2;
Messwerte.lines.add('Die Summe ist '+floattostr(Summe));
Messwerte.lines.add('Der Mittelwert ist die Summe geteilt durch die Anzahl der Eingaben '+floattostr(Summe)+':' +floattostr(Anzahl-1)+'=' +floattostr(Mittelwert));
Messwerte.lines.add('Die Hälfte der Summe ist '+floattostr(Haelfte));
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.MesswerteChange(Sender: TObject);
begin

end;

end.

[edit=alcaeus]Delphi-Tags eingefuegt. In Zukunft bitte selbst machen Mfg, alcaeus[/edit]