Listbox
Добавлено: 29 сен 2009, 20:17
компонент Listbox
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Помогите, пожалуйста, ув. программисты! Я только начала изучать в университете Делфи и не могу разобраться!
Как можно в Listbox2 последовательно скопировать с Listbox1 слова, которые находятся в четных строках Listbox1???...
Я пыталась что-то типа такого зделать (т.е. остаток от деления если равен 0, то ListBox2 присваеваем эти строки....
Ну вообщем, никак не могу сообразить....)
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if Listbox1.Items.Strings mod 2=0 then ListBox2.items:=Listbox1.Items.Strings;
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Помогите, пожалуйста, ув. программисты! Я только начала изучать в университете Делфи и не могу разобраться!
Как можно в Listbox2 последовательно скопировать с Listbox1 слова, которые находятся в четных строках Listbox1???...
Я пыталась что-то типа такого зделать (т.е. остаток от деления если равен 0, то ListBox2 присваеваем эти строки....

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
if Listbox1.Items.Strings mod 2=0 then ListBox2.items:=Listbox1.Items.Strings;