oprette liste med 10 strenge

Hvilken slags liste?

Hvis det er en ListBox du mener, så prøv dette:

Indsæt en TEdit (Edit1), en TButton (Button1) og en TListBox (ListBox1), hvor teksten i parantes er de navne de skal have, på Form1 i et nyt projekt.

Indsæt følgende i Button1's OnClick-event:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Insert(Edit1.Text, 0);
  if ListBox1.Items.Count > 10 then
    ListBox1.Items.Delete(10);
end;

Koden er ikke testet, da jeg sidder ved Linux og derfor ikke kan køre Delphi.

Den kunne vel næsten laves universel, så det er ligegyldigt om det er en ListBox, TStringList eller what ever, bare det er en descendant af TStrings...

procedure AddItem(List : TStrings; const Text : String);
begin
  List.Insert(Text,0);
  While List.Count > 10 do
    List.Delete(10);
end;

...

og kaldes f.eks. fra en button click som

...
  AddItem(ListBox1.Items,Edit1.Text);
...

begge virker fint..

opret svar, så får i begge point.

Tak.

Svar :o)

doc404's udgave vil dog fange flere fejl - hvis der f.eks. skulle komme mere end 11 punkter i listen :o)

Min bør se sådan ud (samme løsning som doc404's):

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Insert(Edit1.Text, 0);
  while ListBox1.Items.Count > 10 do
    ListBox1.Items.Delete(10);
end;

;-)