ListBox og Memo

Hej

Memo1.Text := ListBox1.Items[1];

/SpEeDy

Tak SpEeDy ;)

Men hvaa så hvis man skal lave en loop så at den skriver alle de Items der er i listboxen ???

og lige et spm til hvis der nu ikke er noget i Listboxen så skal den ikke adde noget hvordan kan man det ???

jeg ved at hvis der ikke er noget i Listboxen så er den -1

Du får lige lidt flere point hvis du lige vil hjelpe ;-)

Så bruger du bare

For I:=1 to listbox1.Items.Count do
Memo1.Text.Add:=ListBox1.Items[I];

>>>AASuper

Der sneg sig en fejl ind:

For I:=1 to listbox1.Items.Count do
Memo1.Lines.Add(Listbox1.Items[i];

Du behøver ikke at tage højde for om listboxen er tom. For så kører kodestykket ikke!

>>>AASuper

Endnu en fejl:

For I:=1 to listbox1.Items.Count do
Memo1.Lines.Add(Listbox1.Items[I-1]);

Den første linje i Listboxen har jo værdien 0...

Nu skulle der ikke være flere fejl! :>

>>>AASuper

Jeg får en fejl når jeg vil compile

Den ved ikke hvaa I er !

var
  I : integer;

jeg skulle lige have det her ;)

tak

Det er sikkert fordi du ikke har deklæret I.

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  For I:=1 to listbox1.Items.Count do
    Memo1.Lines.Add(Listbox1.Items[I-1]);
end;

Snowball

Hvis du vil have den markerede linie over i din listbox og ikke bare linie 1, eller alle linierne, skal du skrive:

memo1.lines.add(listbox1.Items.Strings[ListBox1.ItemIndex]);

I er en integer variabel.

Over 'Begin' skal du skrive:

Var
i : integer;

Mvh
Retep

Ups, der skulle have stået: Den markerede linie fra din listbox over i din memo...

;) det dur nu ;)))))))

lolle TAKKER til alle som ville gii et lille svar men det var kun speedy og aasuper som lolle skulle bruge ;o)

15 point til hver ;o)

procedure TMainForm.GetClick(Sender: TObject);
var
  I : integer;
begin
If Listbox.Items.Count = 0 Then begin
  Memo.Lines.Add('Der er ikke noget i listen!');
end
else begin
  For I:=1 to Listbox.Items.Count do
  Memo.Lines.Add(Listbox.Items[I-1])
end;
end;

Sådan skulle koden nu se ud ;)

lolle, selvom spm. er lukket har jeg en enkelt kommentar til din løsning:

Da listbokse, memoer og andre "strings" typer alle er nul-baserede arrays burde du vænne dig til at bruge følgende i dit for loop:

  For I:=0 to Listbox.Items.Count -1 do
  Memo.Lines.Add(Listbox.Items[I])

Derved undgår du at du en dag "glemmer" I-1 og dermed en array fejl.

Den måde du har gjort det på er helt ok, men er en unødvendig fejlrisiko.