Kopiere fra listbox til do

Form2.ListBox1.Items.assign(Form1.ListBox1.items);

Jens B

og den \"lyn hurtige og lidt beskidte\" :

Form2.ListBox1.Items := Form1.ListBox1.items;

Hvis det er en meget lang liste, er der faktisk stor forskel på hastigheden, da min løsning, \"bare\" tilskriver en ny liste til din listbox, og det er jo væsentlig hurtigere en at løbe en lang liste igennem.

Det er nok rigtigt men dette er en kort liste med max 10 linjer

Ups jeg glemte noget i mit spørgsmål
nemlig hvordan man kan undgå at det samme nummer optræder flere gange i den samme listbox
men det må jeg nok heller oprette et nyt spørgsmål til !!

Du sætter Sorted := TRUE og så er der også en options det fortæller hvad du vil gøre med dub.\'s

/Martin

ellers kan du gøre det i hånden :

procedure TForm1.Button1Click(Sender: TObject);
var
  s : String;
begin
  s:= \'Hest\';
  if ListBox1.Items.IndexOf(s) = -1 then
    ListBox1.Items.Add(s);
end;


Jens B

Borrisholt .. var det ikke en ide at svare på mit nye spørgsmål

anold >> Jo gerne hvis bare jeg kunne se det ... På min skærm er mit spørgsmål det nyeste

Jens B

anold >> der en mulighed for at opdatere siden, det er ikke altid man ser det nye\'ste, når man går ind.

borrisholt jeg opretter det nu