Tilføje items til Listbox

Prøv at debugge dig frem, måske det giver dig mening

Sorry, men hvor gør man det henne? Er ny i Delphi. Bruger 2010.

Hvis ikke du har ændret i opsætnigen trykkes F5 på den linie du vil have programmet til at stoppe på under udførslen. Herefter kan man undersøge variables værdi på dette tidspunkt (Inspect).

Der findes iøvrigt mange gode begynderbøger i Delphi.

Jeg vil mene at
for j:= 0 to Unit15.Form15.AffList.Count-1 do
skal ændres til
for j:= 0 to Unit15.Form15.AffList.items.Count-1 do

Følgende ser ihvertfald ud til at virke:

Hvis jeg opretter en Listbox (ListBox1), en Edit (Edit1), en Button (Button1) og en Label (Label1), og sætter følgende kode i Button1Click;

Procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.items.Add(Edit1.text);
  label1.Caption := IntToStr(Listbox1.Items.Count);
end;

så tilføjes Teksten fra Edit1 når man trykker på knappen, og Count øges med 1 hver gang. Virker upåklageligt.

Hvis man så yderligere tilføjer en ListBox (ListBox2) og en Button (Button2), kan man i Button2Click indsætte;

procedure TForm1.Button2Click(Sender: TObject);
Var i: integer;
begin
  For i := 0 to Listbox1.Items.Count-1 do
  begin
    ListBox2.Items.Add(ListBox1.Items[i])
  end;
end;

Det virker også fint - man får alle Items fra ListBox1 overført til ListBox2 uden fejl på Count

#4
Det var desværre ikke det :(

Tror vist det er bedre at jeg forklarer helt i dybden:

Man kan overføre nogle items fra NameList og over i en anden listbox. Når man trykker på en knap bliver elementerne fra den listbox SAMT det, man eventuelt har skrevet i Person01.Text, lagt over i en combobox ved navn NamesMenu.

Her er hvad der sker, når man trykker på en knap:

// |||------- udskifte name med name OG aff -----------
  k:= NamesMenu.ItemIndex;
  For i:= 0 to NamesMenu.Items.Count-1 do
    begin
    for j:= 0 to Unit15.Form15.AffList.Items.Count-1 do
      if pos(NamesMenu.items[i],Unit15.Form15.AffList.Items[j])=1 then
        break;
    Unit15.Form15.SelectedList.Items[i] := Unit15.Form15.AffList.Items[j];    // i denne linje kommer den med fejl
    // sætte selectedlist ind i array
    feedback_nameaff[i] := Unit15.Form15.SelectedList.Items[i];
    end;
  if k>=0 then
  NamesMenu.Text := NamesMenu.Items[k];
// ------- udskifte name med name OG aff -----------|||

(for dette kan jeg referere til http://www.eksperten.dk/spm/898662)


Fejlen som er nævnt ovenfor er "List index out of bounds (46)".
SelectedList er bare en ny listbox.

feedback_nameaff er bare defineret således:
feedback_nameaff : array[0..24] of string;

Der er kun 25 elementer i denne da jeg ikke har brug for flere.

Skal lige skynde mig at få med også, at fejlen kommer KUN, hvis jeg indsætter noget i Person01.

i
Unit15.Form15.SelectedList.Items[i] := Unit15.Form15.AffList.Items[j]; 
har du ikke styr på om i er indenfor tilladt interval med den kontrol du laver på namelist.count

Når selectedlist ern en "ny"listbox, skal du bruge .add for at sætte nye elementer ind

#8
Kan du venligst fortælle mig hvordan jeg skriver den så?

Jeg prøver med Items.Add og AddItem og AddStrings, men intet virker.

Noget i retning af:
Unit15.Form15.SelectedList.Items.add(Unit15.Form15.AffList.Items[j])

#10
Den kommer desværre med samme fejl :/

Det er altså som om at den ikke godtager, at der faktisk nu befinder sig 46 elementer i AffList - for jeg kan se, at det element man tilføjede til AffList (der ved MorePersonsBtnClick i #0) ikke kommer med i SelectedList.