huhu!
ich hätte da noch eine short version für werte < 10...
also funktioniert bis 9,99 ...
ist zwar nicht unbedingt sicher aber recht einfach
und wer springt schon über 10 meter ? ^^
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
sl : TStringList;
gross : real;
// klein... : real;
// mittel... : real;
// what ever : real;
begin
// Speicher allozieren
sl := TStringList.Create;
// Hinzufügen der werte...
sl.Add( edit1.Text );
sl.Add( edit2.Text );
sl.Add( edit3.Text );
// beliebig viele werte hinzufügen ( im format "x,y" )
// Sortieren...
sl.Sorted := true;
// Ausgabe...
//{ Debug: } ListBox1.Items.AddStrings( sl );
// Hier kannst du nun drauf zugreifen:
// Beachte: der kleinste wert ist "sl[0]" der größte je nach Anzahl der
// einträge dann Anz-1 also bei 3 einträgen sl[2]
Label1.Caption := 'Der kürzeste Hüpfer war: '+ sl[0]+' Meter';
Label2.Caption := 'Der längste Hüpfer war: '+ sl[2]+' Meter';
// und wenn du das auch noch seperat speichern willst dann:
gross := StrToFloat( sl[2] );
// Speicher freigeben
sl.Free;
end;