Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Вниз

То ли лыжи не едут...   Найти похожие ветки 

← →
Michael C   (2002-03-06 16:45) [0]

После такой строки
Mas[StrToInt (A)]:= Mas[StrToInt (A)]+ StrToInt(N3);
как считать все полученные элементы массива, к примеру в Мемо???

---

← →
Виктор Щербаков   (2002-03-06 16:48) [1]

for i := Low(Mas) to High(Mas) do
Memo.Lines.Add(IntToStr(Mas[i]));

---

← →
Michael C   (2002-03-06 17:08) [2]

Спасибо Виктору, но что-то не то...
Дело в том, что у меня из массива выбираются одинаковые строчки, и вот их нуно по одному разу вывести...

---

← →
DieHard   (2002-03-06 17:13) [3]

Удалено модератором

---

← →
Виктор Щербаков   (2002-03-06 17:14) [4]

for i := Low(Mas) to High(Mas) do
if Memo.Lines.IndexOf(IntToStr(Mas[i])) = -1 then
Memo.Lines.Add(IntToStr(Mas[i]));

---

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

Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c