Help pleaz!

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

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

← →
VirEx © (2006-01-15 17:18) [1]

summ:=strToInt(ListBox1.items[1])+strToInt(ListBox2.items[5]);

edit1.text:=ListBox1.items[ListBox1.count]

вроде так (ток не бить за не те методы или свойства, вспомнил примерно)

← →
Zeqfreed © (2006-01-15 17:20) [2]

Кумар (15.01.06 17:07)
procedure TForm1.Button1Click(Sender : TObject); begin Edit1.Text := IntToStr(StrToInt(ListBox1.Items[5]) + StrToInt(ListBox2.Items[6])); end;

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

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

Огромное спасибо!

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

Извините но мне нужно задать ещё один вопрос.
Вообщем в ListBoxe написанно дробное число(253.50) и когда я к ниму прибавляю другое число выдаётся ошибка, можноли как то это исправить.

← →
VirEx © (2006-01-15 17:58) [5]

> [4] Кумар (15.01.06 17:51)

разные типы

← →
Кумар (2006-01-15 18:00) [6]

не понял?!

← →
Zeqfreed © (2006-01-15 18:09) [7]

Кумар (15.01.06 17:51) [4]
Для перевода дробного представления числа в строковое можно использовать ф-цию FloatToStr (StrToFloat для обратного перевода). Только нужно помнить, что десятичный разделитель зависит от региональных настроек. Актуальный для приложения десятичный разделитель хранится в перменной DecimalSeparator.

← →
Zeqfreed © (2006-01-15 18:10) [8]

VirEx © (15.01.06 17:58) [5]

> разные типы

Телепат?

← →
Кумар (2006-01-15 18:14) [9]

Кумар (15.01.06 18:14) [9]

> Мне нужно умножить 235.50 на 7

235.50 * 7

Help pleaz! Найти похожие ветки