editbox Text aus Listbox beziehen

[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]