Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

o0o0o0o © (2006-09-17 21:51:00)
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 - это последний элемент, но я не знаю, как его отловить, что бы не ставить после последнего элемента запятую, а поставить точку.

Германн (2006-09-18 00:56:00) [1]

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

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

Anatoly Podgoretsky (2006-09-18 00:43:00) [2]
И if не нужен, SetLenght отработает правильно.

Anatoly Podgoretsky (2006-09-18 00:41:00) [3]
А про Delete кто ни будь спрашивал?

Loginov Dmitry (2006-09-17 22:36:00) [4]
Anatoly Podgoretsky © (17.09.06 22:13) [6]
А SetLenght тебя не учили?

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

Anatoly Podgoretsky (2006-09-17 22:13:00) [5]
Loginov Dmitry © (17.09.06 22:07) [4]
А SetLenght тебя не учили?

Anatoly Podgoretsky (2006-09-17 22:11:00) [6]
Последний элемент равен TmpFlags[13]

Loginov Dmitry (2006-09-17 22:07:00) [7]
А не проще удалить запятую в самом конце.

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

Kolan (2006-09-17 21:59:00) [8]
if K = length(TmpFlags) - 1 then //ставь точку else //ставь запятую..

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

o0o0o0o (2006-09-17 21:56:00) [9]
Отловить последний элемент, что бы после него не ставить запятую.

Loginov Dmitry (2006-09-17 21:54:00) [10]
Че надо-то???

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »