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

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]

>Zeqfreed ©   (15.01.06 18:09) [7]
Спасибо я вроде понял но всёже можно пример написать.
Мне нужно умножить 235.50 на 7

---

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

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

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

235.50 * 7

---

← →
VirEx ©   (2006-01-15 18:19) [11]

>
>  [8] Zeqfreed ©   (15.01.06 18:10)
> VirEx ©   (15.01.06 17:58) [5]
>
> > разные типы
>
> Телепат?

я же не тебе объясняю

---

← →
Zeqfreed ©   (2006-01-15 18:23) [12]

VirEx ©   (15.01.06 18:19) [11]
Я же просто поинтересовался. Зачем все так резко воспринимать?

---

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

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



Память: 0.47 MB
Время: 0.025 c