Текущий архив: 2003.06.02;
Скачать: CL | DM;

Вниз

Перевод строк из ListBox в числовой формат.........   Найти похожие ветки 

← →
Renegate ©   (2003-05-22 08:22) [0]

Здраствуйте мастера. Как произвести перевод строк ListBox в StatusBar в виде их общего числа, при этом содержимое ListBox постоянно обнавляется, если можно то на примере.

---

← →
Palladin ©   (2003-05-22 08:28) [1]

Рекомендую хранить числовой аналог строки в Objects
для того что бы StrToInt не применять к каждому элементу...

---

← →
Renegate ©   (2003-05-22 08:41) [2]

> Palladin


Извени конечно но чтото я не совсем понял...........

---

← →
MBo ©   (2003-05-22 08:45) [3]

>чтото я не совсем понял
стоит изучить хелп по TStrings

---

← →
Palladin ©   (2003-05-22 09:18) [4]

> Renegate © (22.05.03 08:41)

это форум по конкретной теме, Delphi, а не форум для обучения программированию или оптимизации... хотя эта граница уже давным давно стерта...

Все тебе нужно знать относящееся к Delphi применительно к твоему вопросу это то что у TListBox существует свойство Items[] которое является TStrings, у TStrings в свою очередь может хранить не только строки, но и некие объекты (читай указатели) привязанные к этим строкам (TStrings.Objects[]) предполагая что integer в твоей системе имеет тот же самый размер что и pointer мы можем рассматривать "массив" Objects как "массив" целочисленных значений (или любых других значений, тип которых соразмерен с SizeOf(pointer)). Пример:

With ListBox1.Items do
begin
Objects[1]:=TObject(34); // занесли число 34
Objects[2]:=TObject(16); // занесли число 16
Objects[3]:=TObject(Integer(Objects[1])+Integer(Objects[2])); // сложили предыдущие два
end;

Вот тебе выкладка по поводу как организовать хранение твоих чисел в нормальном численном виде и как с ними работать.
Дальше сам думай...

Вот тебе еще один вариант работы с твоими "числами", но без наворотов типа objects


With ListBox1.Items do
begin
Add("34")); // занесли число 34
Add("16")); // занесли число 16
Add(IntToStr(StrToInt(Strings[Count-1])+StrToInt(Strings[Count-2]))) // сложили предыдущие два
end;


можешь реализовать оба варианта и сравнить производительность...

---

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

Текущий архив: 2003.06.02;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.015 c