Определение последнего элемента

← →
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 никто и не спрашивал :)

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

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

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

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

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