Viele Items in eine Listbox adden - simultan zur Berechnung?

[g00gle-gott]

@mkinzler

ok, und wie würde das dann aussehen? also meine hauptprozedur sieht momentan wie folgt aus:

Delphi-Quellcode:

procedure turm (n : integer; A,B,C : String);
begin
  form1.ListBox1.Items.BeginUpdate;
  if n > 1 then
    begin
      turm (n-1, A, C ,B);
      Form1.Listbox1.items.add(A + ' nach ' + C);
      form1.progressbar1.position:=form1.listbox1.items.count;
      turm (n-1, B , A, C);
    end
      else begin
        Form1.ListBox1.items.add(A + ' nach ' + C);
        form1.progressbar1.position:=form1.listbox1.items.count;
      end;
  form1.ListBox1.Items.endUpdate;
end;

(die Progressbar mal nicht beachten) das is die standardprozedur (rekursiv) um Türme von Hanoi zu lösen...

mfg Ändy