Einige Anfängerfragen

[Relicted]

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;