editbox Text aus Listbox beziehen

[DeddyH]

Also nochmal: die Listbox sortiert automatisch? Dann sollte das Array aber in der selben Reihenfolge befüllt werden, abgesehen vom leeren ersten Element. Zur Not erstell doch mal ein Zip-Archiv mit dem Projekt und hänge es an.

[Serpentine]

nein, ich habe ein sortierverfahren, welches das array sortiert und dann die felder aus dem array in die listbox übergibt.
Das ist eine Aufgabe die ich in der Schule aufbekommen habe^^
Worum es geht ist, dass Zahlen in eine Listbox und gleichzeitig in ein Array eingelesen werden, das Array dann sortiert wird und die Sortierten Zahlen dann in die Listbox übergeben werden.

Das Projekt habe ich angehängt.

[DeddyH]

Erstmal zur Sortierung: versuch mal dies

Delphi-Quellcode:

  for i:=1 to index - 1 do
  begin
       for j:= index - 1 downto i + 1 do
       begin
            if f[j] < f[j-1] then
            begin
                 a := f[j-1];
                 f[j-1] :=f[j];
                 f[j] := a;
            end;
       end;
  end;

[edit] Ich habe mal schnell ein neues Projekt erstellt, das IMHO ein wenig strukturierter aufgebaut ist (allerdings ohne Speichern/Laden). Sieh Dir mal den Anhang an. [/edit]

[Serpentine]

Echt nett von dir dass du dir die Mühe gemacht hast^^. Aber das mit dem Sortieren bekomme ich auch hin. Mein Problem ist, dass ich ein Array aus einer Datei laden will um dieses dann zu sortieren.

Also

Datei-> Listbox-> Array-> Array sortieren-> Sortiertes Array in Listbox anzeigen

Nur bekomme ich es nicht hin, dass die Listbox in das Array übernommen wird.

[DeddyH]

Du kannst Dir die Listbox doch einfach als StringListe abspeichern (Listbox.Items.SaveToFile). Der umgekehrte Weg ist dann:
-Listbox.Items aus Datei laden (Listbox.Items.LoadFromFile)
-in einer Schleife -> Array[Index] = StrToInt(ListBox.Items[Index])

[Serpentine]

ja und genau das bekomme ich nicht gebacken^^

Delphi-Quellcode:

for i:=0 to listbox1.items.count-1 do
begin
  f[i+1]:=strtoint(listbox1.items.Strings[i]);
end;

So habe ich es versucht zu lösen, aber die Listbox wird anscheinend nicht richtig ins array übernommen.

[DeddyH]

Sicher? Evtl. musst Du nur Deine Variable Index richtig setzen.

[Serpentine]

Ja, wenn ich ein Array lade, wird es in der Listbox angezeigt. Klicke ich dann auf sortieren ist die Listbox einfach Leer.

[DeddyH]

Bist Du nach dem Sortieren auch den umgekehrten Weg gegangen? In meinem Beispielprojekt funktioniert das jedenfalls

[Serpentine]

Dein Beispielprojekt besteht aber nur daraus, dass man Zahlen einlesen kann und diese dann sortieren kann.

Ich möchte aber eine Liste aus einer Datei laden (Listbox1.loadformfile)


den inhalt dieser Listbox in ein Array aufnehmen

Delphi-Quellcode:

for i:=0 to listbox1.items.count-1 do
begin
  f[i+1]:=strtoint(listbox1.items.Strings[i]);
end;

dieses Array dann via Bubblesort sortieren

und zuletzt dann den Inhalt des Arrays, welcher sortiert wurde so wieder in die Listbox aufnehmen.


Davon funktioniert bei mir bis jetzt alles, ausser das der Inhalt der Listbox in das Array aufgenommen wird.

Ich hänge nochmal das Projekt an, so weit wie ich bis jetzt gekommen bin.