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

Определение последнего элемента   Найти похожие ветки 

← →
o0o0o0o   (2006-09-17 21:51) [0]

   
 TmpFlags: array [0..13] of ... =
   ((NFlag: $000f; NName: "name1"),
    .........
Value -- некоторое значение
for k := 0 to length(TmpFlags) - 1 do
     with TmpFlags[k] do
       if Value and NFlag = NFlag then
       begin
       Result := Result + NName + ", ";
...

Результат операции будет приблизительно такой: "name1, name2, name3,"
name3 - это последний элемент, но я не знаю, как его отловить, что бы не ставить после последнего элемента запятую, а поставить точку.

---

← →
Loginov Dmitry ©   (2006-09-17 21:54) [1]

Че надо-то???

---

← →
o0o0o0o   (2006-09-17 21:56) [2]

Отловить последний элемент, что бы после него не ставить запятую.

---

← →
Kolan ©   (2006-09-17 21:59) [3]

if K = length(TmpFlags) - 1 then
//ставь точку
else
//ставь запятую..

Может и не правильно, пример можно былобы и попроще(не выдраный из проекта) ...

---

← →
Loginov Dmitry ©   (2006-09-17 22:07) [4]

А не проще удалить запятую в самом конце.

if Result <> "" then
 Delete(Result, Length(Result) - 1, 2);

---

← →
Anatoly Podgoretsky ©   (2006-09-17 22:11) [5]

Последний элемент равен TmpFlags[13]

---

← →
Anatoly Podgoretsky ©   (2006-09-17 22:13) [6]

Loginov Dmitry ©   (17.09.06 22:07) [4]
А SetLenght тебя не учили?

---

← →
Loginov Dmitry ©   (2006-09-17 22:36) [7]

Anatoly Podgoretsky ©   (17.09.06 22:13) [6]
А SetLenght тебя не учили?

А про SetLenght никто и не спрашивал :)

---

← →
Anatoly Podgoretsky ©   (2006-09-18 00:41) [8]

А про Delete кто ни будь спрашивал?

---

← →
Anatoly Podgoretsky ©   (2006-09-18 00:43) [9]

И if не нужен, SetLenght отработает правильно.

---

← →
Германн ©   (2006-09-18 00:56) [10]

> И if не нужен, SetLenght отработает правильно.

И более того! Отработает правильно для любых разновидностей типа string.

---

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

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



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