04. september 2002 - 22:56Der er
12 kommentarer og 1 løsning
position i en listbox-component!
hejsa
jeg har et nemt spørgsmål, tror jeg.
hvordan arbejder standard listbox'en med linje position?
eksempel ved lagt: det er items.delete(x) jeg er interesret i.
procedure TForm1.Create1Click(Sender: TObject); var x : integer;
begin for x := 1 to 10 do begin form1.ListBox1.Items.add(inttostr(x)+'-'+chr(60+x)); end; end;
procedure TForm1.Move2Click(Sender: TObject); var x : integer; begin for x := 0 to 4 do begin form1.memo1.lines.add(listbox1.Items.Strings[x]); end; end;
procedure TForm1.Delete3Click(Sender: TObject); var x : integer; begin for x := 0 to 4 do begin form1.ListBox1.Items.Delete(x); end; end;
hvis jeg tager procedurerne en efter en. så vil slette proceduren slette en i midten til at starte med og resten som de skal.
Kan det have noget at gøre med at når du sletter et element fra listen skifter index for de efterfølgende? Altså: når 0 slettes, bliver 1 til 0, 2 til 1 o.s.v.
Hvis nogen kommenterer et sp. og kommentaren faktisk viser sig at være svaret, beder man vedkommende om at sende et svar istedet og dermed få sine points. Det tager altså ikke ret lang tid :o|
Sorry, det er mig der er en spasser. Mon ikke jeg snart lære at læse? Det er selvfølgeligt sådan her det skal være ik'? Men, hey nu kender han også itemindex lol;
btw. nej dj_alf du skal ikke slette bagfra. Hvis du vil slette fra linie 0-3 su slætter du bare 0 4 gange.
for x := 0 to 4 do begin form1.ListBox1.Items.Delete(0);
/Klaus (Der ikke kan læse) (og absolut ikke skulle have sagt noget i denne tråd)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.