| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Help pleaz! [D7, WinXP]
Кумар © (2006-01-15 17:07:00)Привет всем!
У меня возникли 2 проблемы в написании программы.Первая: У меня на форме два ListBox`а В каждом n-строк(цифры) и мне нужно что бы по нажатию на кнопку в edit выводилась сумма Например 5-ой строки ListBoxa1 и 6-ой Listbox2.и вторая: мне нужно что бы при запуске программы в edit записывалась последняя строка Listbox`a
Zeqfreed (2006-01-15 18:23:00) [1]VirEx © (15.01.06 18:19) [11]
Я же просто поинтересовался. Зачем все так резко воспринимать?
VirEx (2006-01-15 18:19:00) [2]
>
> [8] Zeqfreed © (15.01.06 18:10)
> VirEx © (15.01.06 17:58) [5]
>
> > разные типы
>
> Телепат?
я же не тебе объясняю
Zeqfreed (2006-01-15 18:18:00) [3]Кумар (15.01.06 18:14) [9]
> Мне нужно умножить 235.50 на 7
235.50 * 7
Кумар (2006-01-15 18:14:00) [4]>Zeqfreed © (15.01.06 18:09) [7]
Спасибо я вроде понял но всёже можно пример написать.
Мне нужно умножить 235.50 на 7
Zeqfreed (2006-01-15 18:10:00) [5]VirEx © (15.01.06 17:58) [5]
> разные типы
Телепат?
Zeqfreed (2006-01-15 18:09:00) [6]Кумар (15.01.06 17:51) [4]
Для перевода дробного представления числа в строковое можно использовать ф-цию FloatToStr (StrToFloat для обратного перевода). Только нужно помнить, что десятичный разделитель зависит от региональных настроек. Актуальный для приложения десятичный разделитель хранится в перменной DecimalSeparator.
Кумар (2006-01-15 18:00:00) [7]не понял?!
VirEx (2006-01-15 17:58:00) [8]
> [4] Кумар (15.01.06 17:51)
разные типы
Кумар (2006-01-15 17:51:00) [9]Извините но мне нужно задать ещё один вопрос.
Вообщем в ListBoxe написанно дробное число(253.50) и когда я к ниму прибавляю другое число выдаётся ошибка, можноли как то это исправить.
Кумар (2006-01-15 17:24:00) [10]Огромное спасибо!
Zeqfreed (2006-01-15 17:20:00) [11]Кумар (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;
VirEx (2006-01-15 17:18:00) [12]summ:=strToInt(ListBox1.items[1])+strToInt(ListBox2.items[5]);
edit1.text:=ListBox1.items[ListBox1.count]
вроде так (ток не бить за не те методы или свойства, вспомнил примерно)
| |
