edits sortier darstellen?

[p80286]

Also möchtest Du so etwas:

22,44,12,28,85,67 => 12,22,44,28,85,67

?

Dann nimm eine Liste, trage die Werte ein, suchen den kleinsten Eintrag, gib ihn aus, entferne ihn aus der Liste, gib die restlichen Listeninhalte aus.

Gruß
K-H

[Foxi1896]

nein ich möchte nur den kleinesten Wert heraussuchen. Und von dort die Werte anzeigen lassen.

also:

6 / 3 / 1 / 4 / 11 / 14 und das dann angefangen bei 1 => 1 / 4 / 11 / 14 / 6 / 3

[DeddyH]

Auch kein Problem: Liste erstellen, Werte eintragen, Minimum ermitteln und dessen Index merken, ab diesem Index alle Werte ausgeben, wenn Index > 0, dann ab 0 bis ausschließlich Index alle restlichen Werte ausgeben.

[baumina]

Es gibt im Delphi eine Funktion Namens MinValue.

[Foxi1896]

ähh ok. (<- Für Angänger bitte)

also ich erstelle eine Listbox.
und wie bekomm ich die dann da nochmal rein? listbox1.add(Edit1); geht irgendwie nicht

und wenn ich sie dann drin habe muss ich mit Min(....

[DeddyH]

Ich habe Liste gesagt, nicht ListBox. Statt einer Liste kannst Du aber auch ein Array nehmen.

[Foxi1896]

ähm kann es sein das (*räusper* benutze lazarus) keine Liste gibt?

[baumina]

Hier mal ein kleiner Test:

Delphi-Quellcode:

uses Math;

....

ShowMessage(FloatToStr(MinValue([12, 15, 16, 10, 12.5, 13.1, 18])));

Liefert Ergebnis : 10

[sx2008]

Du musst noch weiter zurück zum Anfang und erklären was das Ganze eigentlich soll.
Bislang lässt sich nur erkennen dass du mehrere Flieskommazahlen in Edit-Felder hast und diese auf unlogische Art und Weise umsortieren willst.

Allein schon die Tatsache, dass du für mehrere gleich wichtige Zahlen jeweils ein eigenes Editfeld benützt ist eigentlich schon unlogisch.
Es widerspricht der normalen Denkweise eines Programmierers.
Wenn man einen Sortieralgorithmus anwendet, dann ist es egal wie viele Dinge man sortiert.
Ob 10, 100 oder 1000 - der Sortieralgorithmus (üblicherweise Quicksort) bleibt gleich.
Da aber die Anzahl der zu sortierenden Elemente offen ist, ist es für uns unverständlich warum die Daten in Editfeldern vorliegen.

[DeddyH]

Schön, was soll man aber damit nun anfangen? Ich habe das eben Gesagte einmal grob skizziert (wieder ungetestet):

Delphi-Quellcode:

var
  (* Array mit 10 ganzen Zahlen *)
  Arr: array[1..10] of integer;
  (* Variable für die kleinste Zahl im Array *)
  Minimum: integer;
  (* Variable für den Index der kleinsten Zahl innerhalb des Array *)
  IndexOfMinimum: integer;
  (* Laufvariable für die Schleife *)
  i: integer;
begin
  (* Initial setzen wir Minimum sowie dessen Index auf das erste Element im Array *)
  Minimum := Arr[Low(Arr)];
  IndexOfMinimum := Low(Arr);
  (* Nun den Rest des Array durchgehen, vergleichen und Variablen ggf. anpassen *)
  for i := IndexOfMinimum + 1 to High(Arr) do
    if Arr[i] < Minimum then
      begin
        Minimum := Arr[i];
        IndexOfMinimum := i;
      end;
end;

Danach solltest Du wissen, an welcher Stelle im Array die kleinste Zahl steht. Nun musst Du nur noch in maximal 2 Schleifen die Werte wieder ausgeben.