| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблемы с ListBox

Кумар ©   (2006-01-15 16:41:00) 

Привет всем!
У меня возникли 2 проблемы в написании программы.Первая: У меня на форме два ListBox`а В каждом n-строк(цифры) и мне нужно что бы по нажатию на кнопку в edit выводилась сумма Например 5-ой строки ListBoxa1 и 6-ой Listbox2.и вторая: мне нужно что бы при запуске программы в edit записывалась последняя строка Listbox`a.

---

Джо   (2006-01-15 17:30:00) [1]

procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.Text :=
   ListBox1.Items[ListBox1.Items.Count-1]
end;


---

Zeqfreed   (2006-01-15 17:30:00) [2]

Кумар   (15.01.06 17:12) [2]

> Да, вот хотел ещё спросить чем отличается inttostr от
> strtoint

IntToStr преобразует число из целочисленного представления ( Integer) в строковое ( String).
StrToInt, наоборот, из сткорового в целочисленное.

Кумар   (15.01.06 17:20) [3]

>Второй код не работает выдаёт:
> Undeclared identifier Streams

Streams вообще лишнее. В «первом» коде тоже. Наверное, имелось в виду Strings, но оно является свойством по умолчанию, доступ к которому осуществляется без разыменовывания.

---

Джо   (2006-01-15 17:28:00) [3]

var
 V1,
 V2,
 Summ: Integer;
begin
 V1 := StrToInt (ListBox1.Items[5]); // нумерация стоки идет с 0
 V2 := StrToInt (ListBox2.Items[6]); // ...
 Summ := V1 + V2;
 Edit1.Text := IntToStr (Summ);
end;


---

Кумар   (2006-01-15 17:20:00) [4]

Второй код не работает выдаёт:
Undeclared identifier Streams

---

Кумар   (2006-01-15 17:12:00) [5]

Спасибо огромное, выручил!
Да, вот хотел ещё спросить чем отличается inttostr от strtoint

---

Silver__Dragon   (2006-01-15 17:08:00) [6]

По нажатию кнопки пишешь:
Edit1.Text:=inttostr(strtoint(ListBox1.Items.Streams[5])+strtoint(ListBox2.Items.Streams[6]));
А вот по второй проблеме:
У формы ставишь эвент OnCreate и в нем пишешь
Edit1.Text:=ListBox1.Items.Streams[ListBox1.Items.Capacity];

---

Наверх