Проблемы с 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;

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

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

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

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

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

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

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

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