Скачать: CL | DM;

Проблемы с ListBox   Найти похожие ветки 

← →
Кумар   (2006-01-15 16:41) [0]

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

---

← →
Silver__Dragon   (2006-01-15 17:08) [1]

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

---

← →
Кумар   (2006-01-15 17:12) [2]

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

---

← →
Кумар   (2006-01-15 17:20) [3]

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

---

← →
Джо ©   (2006-01-15 17:28) [4]

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:30) [5]

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


---

← →
Zeqfreed ©   (2006-01-15 17:30) [6]

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

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

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

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.106 c