Mega Code Archive

 

Categories / Delphi / VCL

 

Listbox ve momodan çoklu satır silme[del multilines]

//www.dronymc.cjb.net //drony@mynet.com //icq:266148308 Procedure DelMLines(Startx, Endx :Integer; Stringx : TStrings); var x : integer; begin x := Endx - Startx; repeat Application.ProcessMessages; Stringx.Delete(Startx); x := x -1; until x = 0; end; procedure TForm1.Button1Click(Sender: TObject); begin DelMLines(0,3,listbox1.items); //0-3 arası siliniyor end;