Перевод строк из 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

> 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;

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

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